UPDATE befehl im SQL

[cell]

hab ein problem mit dem update befehl der befehl soll von einem memofeld eingelesen werden

Delphi-Quellcode:

var
   Bemerk: string;
begin
     if InputQuery('Bemerkung ändern','Bemerkung:',Bemerk) then
        begin
        mobemerkung.Lines.Clear;
        mobemerkung.Lines.Append(Bemerk)
        [i]with DataModule1 do[/i]
             begin
                  Query.close;
                  Query.SQL.Clear;
                  Query.SQL.Text:= updatesql('Friktionstest','Bemerkung',Bemerk,'');
                  Query.execsql;
                  while not Query.Eof do
                  Query.Close;
             end;
        end
     else
end;

normalerwiese müsste er mir das updaten oder ??
ein problem hat er mit dem with DataModul1 do

[edit]
Operation oder semikolon fehlt
das ist der fehler