1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TSolution.SpeichernClick(Sender: TObject);
var
  SQL_String: String;
begin
    SQL_String := 'UPDATE Liste SET Name = '+chr(39) +grid.Cells[1,1] +chr(39)
                              +', Vorname = '+chr(39) +grid.Cells[2,1] +chr(39)
                              +' WHERE ID = '+grid.Cells[0,1];
    Liste.Active:=false;
    Liste.SQL.clear;
    Liste.SQL.Add(SQL_String);
    Liste.Active:=true;
end;					

1:

Project Project1.exe raised exception class ENoResultSet with message ‘Error creating cursor handle’. Process stopped. Use Step or Run to continue.					

1:

Liste.ExecSQL;					

1:
2:
3:

Liste.Active := True;
//einfacher ist:
Liste.Open;