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

procedure TForm1.ButtonSQLClick(Sender: TObject);
var SQLText  :String;
begin
  ZTable1.Active       := false;
  DataSource1.DataSet  := Form1.ZQuery1;
  ZQuery1.Connection   := ZConnection1;
  SQLText              := ComboBoxSQL.Text;
  Form1.ZQuery1.SQL.Clear;
  Form1.ZQuery1.SQL.SetText(PChar(SQLText));

  if Pos('SELECT',UpperCase(SQLText)) = 0
   then Form1.ZQuery1.ExecSQL
   else Form1.ZQuery1.Active := True;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.ButtonSQLClick(Sender: TObject);
var SQLText  :String;
begin
  Self.ZTable1.Active       := false;
  Self.DataSource1.DataSet  := Self.ZQuery1;
  Self.ZQuery1.Connection   := Self.ZConnection1;
  SQLText                   := Self.ComboBoxSQL.Text;
  Self.ZQuery1.SQL.Clear;
  Self.ZQuery1.SQL.SetText(PChar(SQLText));

  TRY
  Self.ZQuery1.Active := True;
  EXCEPT
  END;

end;                    

1:
2:
3:
4:
5:

procedure TForm1.ButtonSQLClick(Sender: TObject);
var SQLText  :String;
begin
  PostMessage(Form1.Handle,MeineMsg,0,0);
end;                    

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

procedure TForm1.MyMSG(var Message :TMessage);
var SQLText :String;
begin
  SQLText := 'SELECT * FROM ' + RueckPufferTabelle;

  Form1.ZTable1.Active       := false;
  Form1.DataSource1.DataSet  := Form1.ZQuery1;
  Form1.ZQuery1.Connection   := Form1.ZConnection1;

  Form1.ZQuery1.Active       := false;
  Form1.ZQuery1.SQL.Clear;
  Form1.ZQuery1.SQL.SetText(PChar(SQLText));
  Form1.ZQuery1.Active       := True;
end;                    

1:

 Zugriffsverletzung an Adresse 00000000                    

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:
38:
39:
40:
41:
42:

procedure THauptForm.FTastenClick(Sender: TObject);
var NrFTaste :Integer;
    s        :String;
begin

  s := (Sender as TLMDSpeedButton).Name;
  Delete(s,1,15);
  NrFTaste := StrToIntDef(s,-1);


  Case NrFTaste of
    1: AufHandSchalten;
    2: AufAutomatikSchalten;
    3: AutomatikHalt;
    4: AutomatikFortsetzen;
    5: AnlageReset;
    7: Werkzeugwechelposition;
    10: begin
         PostMessage(HauptForm.Handle,WM_CLOSE,0,0);
        end;
    12: ResetDrucker;
  end;

end;




procedure THauptForm.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin

    Case Key of
      112: FTastenClick(LMDSpeedButtonF1);
      113: FTastenClick(LMDSpeedButtonF2);
      114: FTastenClick(LMDSpeedButtonF3);
      115: FTastenClick(LMDSpeedButtonF4);
      116: FTastenClick(LMDSpeedButtonF5);
      118: FTastenClick(LMDSpeedButtonF7);
      121: FTastenClick(LMDSpeedButtonF10);
    end;

end;