1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

//Server öffnen: (onCreate des Servers)
  ServerSocket1.Port:=45230;
  ServerSocket1.Open;

//Client verbinden (onCreate des Clients)
ClientSocket1.Port:=45230;
ClientSocket1.Host:='localhost';
ClientSocket1.Open

//Infos Senden (zum Beispiel ein Buttondruck im Klienten
ClientSocket1.Socket.SendText('ShowInfo');
//Beenden befehl senden (Ein anderer button zB)
ClientSocket1.Socket.SendText('close');

//Empfangs procedure
procedure TForm1.ServerSocket1onClientRead(...);
var data:String;
begin
  data:=Socket.ReceiveText;
  If data='ShowInfo' Then 
     ShowMessage('Dieses Programm kann auf Nachrichten reagieren')
  else if data='close' Then
     Close;  
  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function SendToMailSlot(const Machine, Slot, MsgText: String): Boolean;
var
  CompleteSlot: String;
  hSlot: THandle;
  BytesWritten: DWORD;
begin
  BytesWritten := 0;
  CompleteSlot := '\\' + Machine + '\mailslot\' + Slot;
  hSlot := CreateFile(PChar(CompleteSlot), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if hSlot <> INVALID_HANDLE_VALUE then
  begin
    if (WriteFile(hSlot, Pointer(PChar(MsgText))^, length(MsgText), BytesWritten, nil)) and (BytesWritten = length(MsgText)) then
    begin
      Result := True;
    end
    else
      Result  := False;
    CloseHandle(hSlot);
  end
  else
    Result := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not SendToMailSlot('NESTOR', 'messngr', 'Nestor' + #0 + 'Nestor' + #0 + 'Hello world') then
    ShowMessage(SysErrorMessage(GetLastError));
end;