MsgDlg: [Error] Connection problems

[schlumpf1]

Delphi-Quellcode:

procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
MessageDlg('Connection problems...' , mtError , mbOk , 0 );
end;

ich will das er bei nem clienterror die fehlermeldung 'Connection problems...' bringt.
Das ganze in nem dialog mit mtError und nem Ok Button (mbOK)
und dann soll wieder ruhe sein

was is dran flasch

thx 4 help

[SirThornberry]

mach aus "mbOK" einfach "[mbOK]"