{remove leading blanks (spaces)}
function LTrim(s: string): string;
var i: integer;
begin
i := 1;
while s[i] = ' ' do inc(i);
result := copy(s, i, length(s) - i + 1);
end;
{Supresses trailing blanks}
function RTrim(s: string): string;
begin
while s[length(s)] = ' ' do dec(s[0]);
result := s;
end;
function AllTrim(s: string): string;
begin
result := rTrim(lTrim(s));
end;