Testa se uma linha de texto está vazia ou não

Function LineIsEmpty(Text:string):boolean;
// Testa se uma linha de texto está vazia ou não
var
i:byte;
begin
for i:=1 to length(Text) do
begin
if Text[i]<>' ' then
begin
result := False;
exit;
end;
end;
Result := True;
end;

//By Nativo_Gyn