1:

CREATE TABLE ZweiParameterTest (feld1 nvarchar(100), feld2 nvarchar(100))                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure InsertThingsIntoDatabase;
var
  adoConn: TADOConnection;
  adoCmd: TADOCommand;
  i: Integer;
begin
  try
    try
      adoConn := TADOConnection.Create(nil);
      adoConn.ConnectionString := 'Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source="X:\test.sdf";';

      adoConn.Open;

      adoCmd := TADOCommand.Create(nil);
      adoCmd.Connection := adoConn;

      // Mit nachfolgender Zeile funktionierts, wenn man unten dann nur einen Parameter setzt.
      // adoCmd.CommandText := 'INSERT INTO ZweiParameterTest (feld1) VALUES (:feld1);';

      adoCmd.CommandText := 'INSERT INTO ZweiParameterTest (feld1, feld2) VALUES (:feld1, :feld2);';

      adoCmd.Prepared := true;

      adoCmd.Parameters[0].Value := 'Test';
      adoCmd.Parameters[1].Value := 'Test';
      
      adoCmd.Execute; // Diese Anweisung kehrt nicht zurück und lässt das Prog abstürzen.

    except
      // Ein bisschen Error-Handling, Logging und so. Wird leider nie erreicht.
      end;
  finally
    adoConn.Close;
    adoCmd.Free;
    adoConn.Free;
    end;
end;                    

1:
2:

  adoCmd.ParamByName['Feld1'].AsString := 'Test';
  adoCmd.ParamByName['Feld2'].AsString := 'Test';