Muss denn procedure RS232Send(BefehlNr: Integer; Befehl:String); außerhalb von TForm1 stehen? Es ist doch eh schon ein RS2321Click da.
Muß doch so gehen:
Delphi-Quellcode:
type
TForm1 = class(TForm)
procedure RS2321Click(Sender: TObject);
procedure Ethernet1Click(Sender: TObject);
private
procedure BtnSend(BefehlNr: Integer; Befehl:String);
procedure RS232Send(BefehlNr: Integer; Befehl:String);
.....
procedure TForm1.RS232Send(BefehlNr: Integer; Befehl:String);
begin
ListBox1.xxxxxx //Hier ist die ListBox jetzt sicher bekannt
Exit;
End;