IdSimpleServer: Wie Daten senden?

[Dax]

Vielleicht liegt hier der Fehler:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
   if CheckBox1.Checked then
      IdSimpleServer1.Listen
   else
      IdSimpleServer1.EndListen;
end;

Versuch mal statt .Listen .BeginListen.