Es wäre unheinmich hilfreich, wenn du und sagen würdest, was für Fehlermeldungen du bekommst bzw. wo es klemmt ...
Bein Überfliegen des Codes ist mit aufgefallen das du
DataModMain weder in
Private noch in
Public deklariert hast. Eventuell hilft dir das ja schon weiter ...
Delphi-Quellcode:
private
{ Private-Deklarationen }
DataModMain:TDataModMain; // <----------------- wäre echt sinnvoll ....
public
{ Public-Deklarationen }
end;
var
FormMain: TFormMain;
implementation
uses AdPort;
{$R *.dfm}
procedure TFormMain.FormCreate(Sender: TObject);
begin
DataModMain := TDataModMain.Create(Self);
end;
procedure TFormMain.ButtonHelpClick(Sender: TObject);
begin
DataModMain.DoCommand('H');
end;