Petit coup de main en delphi

Bonjour,
Voila, jais un petit problème avec mon code en delphi, je cherche a faire un tchat et un bot...voila le problème :
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var i:integer;
begin
for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
begin
If ServerSocket1.Socket.Connections[i].ReceiveText='!Date' then begin
ServerSocket1.Socket.Connections[i].SendText('La date est :'+FormatDateTime('ddddd', Now) );
end;
If ServerSocket1.Socket.Connections[i].ReceiveText='!Heure' then begin
ServerSocket1.Socket.Connections[i].SendText('L'heure est '+FormatDateTime('tt', Now) );
end;
end;
end;
end.

Quand j'envoie !Date... je recois la date !
Quand j'envoie !Heure... je recois...rien =,c !
Je voidrais recevoire la date mais aussit l'heure comment faire ??!!