DELPHI - Quitar los espacios de la derecha o izquierda en una cadena o string

He creado dos funciones, en donde la idea de programarlas surgió de una publicación de un personaje conocido como AX, y bueno están en delphi 7 las funciones, RLTrim quita los espacios que tenga una cadena al final de la derecha y LLTrim hace lo mismo pero quita los espacios de la izquierda en una string, les dejo las funciones.

Código:

Function RLTrim(szEntrada:String):String;
{->Coder - Linkgl <-}
{->Funcion-linkgl.blogspot.com}
{->indetectables.net<-}
var
i:Integer;
begin
for i:=length(szEntrada) downto 1 do
begin
  if not(copy(szEntrada,i,1)=' ') then
  begin
    Result:=copy(szEntrada,1,i);
    exit
  end
end
end;
Function LLTrim(szEntrada:String):String;
{->Coder - Linkgl <-}
{->Funcion-linkgl.blogspot.com}
{->indetectables.net<-}
var
i:Integer;
begin
for i:=1 to length(szEntrada) do
begin
  if not(copy(szEntrada,i,1)=' ') then
  begin
    Result:=copy(szEntrada,i,length(szEntrada));
    exit
  end
end
end;
{->EJEMPLO DE USO<-}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=RLTrim('hola soy linkgl         ');
Edit2.Text:=LLTrim('      hola soy linkgl');
end;
end.