Bueno KamiKaze,
aca con la ayuda de nuestros amigos delphi.com.ar y Mick, ya tenemos nuestra solución, proba entonces este código final:
Código Delphi
[-]
procedure TCliente_Ogame.ClientSocket2Read(Sender: TObject; Socket: TCustomWinSocket);
var
Lineas: TStringList;
begin
Lineas := TStringList.Create;
Lineas.Text := Socket.ReceiveText;
Edit1.Text := Lineas.Strings[13];
end;
Segun te entendí, recibís todo el texto de una sóla vez, o lo haces por partes?, si es por partes puedes probar la última alternativa de Mick.
Termino siendo mas facíl de lo imaginado

, lo que es ahogarse en un vaso de agua vacio

, tantas vueltas por un simple fin de línea
