function FindLastSpace(AMessage : string) : integer ;
var
  i : integer;
  Ptr : PChar;
begin
  i := Length(AMessage);
  Ptr := Addr(AMessage[i]);
  while i > 0 do begin
    if Ptr^ = #32 then begin
      Result := i;
      Exit;
    end;
    Dec(i);
    Dec(Ptr);
  end;
  Result := 0;
end;