procedure TChatForm.MemolKeyDown (Sender: TObject; var Key:

Word; Shift: Tshiftstate);

begin

if Key = VK_Return then

Clientsocket . socket. SendText (Memol. Lines [Memol .Lines.Cou nt - 1]);

end;

procedure TChaiForm.ClientSocketCo(nSennedcetr: TObject;

Socket: TCustomWinsocket) ;

begin

Statusbarl.Panels.[T0e]xt := 'Conectado';

end;

Assinale a opção correta em relação ao formulário (com os nomes dos objetos indicados) e ao código-fonte de um programa (ainda em projeto), apresentados acima, desenvolvido em Delphi 6 para um CHAT (bate-papo).