Parameter (GUID) wird nicht gefüllt

[Thanatos81]

Hallo zusammen!

Ich sitze gerade am ersten Projekt mit Firebird 2.01 und Zugriff per UIB. Funktioniert soweit eigentlich ganz gut. Nur ein Insert funktioniert nicht.
Im Quelltext unten findet ihr zwei showMessages, das erste zeigt einen korrekten Wert an, das zweite einen leeren String. dm.anbieterInsert ist om Typ TJvUIBQuery. Mein Problem ist halt, dass die GUID nicht in dem Parameter ID landet, dieser aber mein Primär-Index ist. Und ein leerer Primär-Index führt nun mal zu Problemen Jemand ne Idee, woran es liegen könnte?

Danke im Voraus,
Thomas

Delphi-Quellcode:

var
  GUID: TGUID;
  bemerk: string;
  guids: string;
begin
  screen.Cursor := crHourglass;

  if (trim(leName.Text) <> '') then
    if cbBranche.ItemIndex > -1 then
    begin
      dm.anbieterInsert.Close;

      CreateGUID(guid);
      guids := GUIDToString(guid);

      showMessage(guids);
      dm.anbieterInsert.Params.ByNameAsString['ID'] := guids;
      showMessage(dm.anbieterInsert.Params.ByNameAsString['ID']);