Hola...
Puedes usar las funciones Pos, y Delete que tiene Delphi... algo así:
Código Delphi
[-]
Datos := ':InfoServidor: Textro cualquiera';
if Pos(':Info', Datos) > 0 then
begin
Delete(Datos, 1, 5);
Delete(Datos, 1, Pos(':', Datos))
end
Espero que esto te sirva para darte una idea...
Saludos...