1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('INSERT INTO names (name,vorname,durchwahl)');
  SQLQuery1.SQL.Add('VALUES (''Test'',''TEST'',''1111'')');
  SQLQuery1.ExecSQL(True);
end;					

1:
2:
3:

SQLQuery2.SQL.Clear;
  SQLQuery2.SQL.Add('SELECT * FROM names');
  SQLQuery2.Open;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button2Click(Sender: TObject);
begin
  with SQLQuery1 do
        begin
          Close;

          with Sql do
          begin
            Clear;
            Add('SELECT * FROM names');

            Try
              Open;
                 MessageBox(Form1.Handle,'GUT','GEHT',MB_OK);
            except
              on e: Exception do
                MessageBox(Form1.Handle,'ERROR','GEHT NICHT' ,MB_OK);
            end;
          end; // with Sql
        end; // with SQLQuery1
end;