en todo caso el codigo que pongas dentro de el execute te puede dar problemas, pero me di cuenta que el valor que entra tambien tiene raros caracteres y eso en una string no es valido, por eso le cree unos pasos para que solo me deje pasar la letra a en ese valor entrante y pues salio como esperaba.
Código Delphi
[-]
procedure TForm1.serverExecute(AThread: TIdPeerThread);
var t:string;
begin
t:= AThread.Connection.ReadString(1);
if( t = 'a')and(t<>'') then
log.Lines.Add(t);
end;