ClientSocket и ServerSocket

[Arsenx777]

all hi! у меня есть две очень простые программы клиент и сервер. Клиент может отпровлять на сервер сообщение из едита.

procedure TForm1.Button1Click(Sender: TObject);
begin
  clientsocket1.Active:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  clientsocket1.Socket.SendText(edit1.Text);
end;

Как можно реализовать чтобы при нажитии на клиенте кнопку на сервере зарабатывала событие или функция например form.color:=clLime;

Например клиент на моём компьютере а сервер у моего друга и хочу программно через сокеты нажить у него на форме кнопку! или вызвать функцию!
Вопрос у меня не получился! но надеюсь меня поняли...

спасибо!

[Leo08]

Вы попробуйте составить так сказать свои команды, которые сервер будет передавать клиенту, и на событие SocketRead у клиента напишите:

If Socket.ReceiveText='Close' then // Если команда закрыть
Self.Close
else
If Socket.ReceiveText='Lime' then // Если команда сменить цвет
Self.Color:=clLime
else // Если оказался обычный текст
Richedit1.Lines.Add(Socket.ReceiveText);

И т.д. ну то есть сервер будет передавать команды как текст, а клиент будет их фильтровать...
Ну а с сервера посылайте текст типа Close и Lime

[Arsenx777]

ааааа... все догнал! спасибо