Terminal Software?!

[NewTimeLive]

Hi ihrzz,
hab nen Problem mit dem Verständnis und der Ausführung meines Programms. Ich Kopiere mal den Code hier her sagt mal bitte was genau da falsch ist.

Das ganze ist eine Terminal Software die Ausgabe soll in einem Memo sein.

Kennt sich damit jemand aus?

Delphi-Quellcode:

unit DataMain;

interface

uses
  SysUtils, Classes, AdWnPort, OoMisc, AdPort, Dialogs;

type
  TDataModMain = class(TDataModule)
    ApdComPort: TApdComPort;
    ApdWinsockPort: TApdWinsockPort;
    procedure ApdComPortTriggerAvail(CP: TObject; Count: Word);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    function DoCommand(CMD : string): boolean;
  end;

var
  DataModMain: TDataModMain;

implementation

uses Types, Controls, FrmMain;



{$R *.dfm}

procedure TDataModMain.ApdComPortTriggerAvail(CP: TObject; Count: Word);
var I : Integer;
    c : Char;
    Zeile : array[0..255] of Char;
begin
  FillChar(Zeile,SizeOf(Zeile),#0);
  for i := 1 to Count do begin
   Zeile := ApdProductName;

    c := ApdComPort.GetChar;
    Case c of

      #10, #13 : begin
                   FormMain.Memo.Lines.Add(StrPas(Zeile));
                   FillChar(Zeile,SizeOf(Zeile),#0);
                 end;
      else StrCat(Zeile, PChar(c));
    end;
  end;
end;




function TDataModMain.DoCommand(CMD: string): boolean;
begin
  //
  ApdComPort.PutString(CMD);
end;

end.

Delphi-Quellcode:

unit FrmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,
  DataMain,
  ExtCtrls, OoMisc, ADTrmEmu, StdCtrls;

type
  TFormMain = class(TForm)
    Panel1: TPanel;
    ButtonHelp: TButton;
    Memo: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure ButtonHelpClick(Sender: TObject);
  private
    { Private-Deklarationen }
  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;

end.

MfG

Sascha