{Remove Spaces}
Function RmSpaces(s: String): String;
Begin
  if s <> '' Then
  begin
    while (length(s)>0) and (s[1]<=#32) do
    delete(s,1,1);
    while (length(s)>0) and (s[length(s)]<=#32) do
      delete(s,length(s),1);
 end;
 RmSpaces:=s;
end;