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