[Phedor]

Код:

function LengthString(s: string): integer;
var
  temp: string;
begin
  Result := 0;
  // Если нет пробелов
  if pos(' ', s)=0 then
  begin
    Result := length(s);
    exit;
  end;
  Temp := s;
  // Проверям длины строк
  while pos(' ', Temp)<>0 do
  begin
    if (Result<pos(' ', Temp)-1) then Result := pos(' ', Temp)-1;
    System.Delete(Temp, 1, pos(' ', Temp);
  end;
  // Проверяем последнюю часть строки, т.к. в конце строки может и не быть пробела
  if length(Temp)>Result then Result := length(Temp);
end;