{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;