>>798
function GetLine(s:string;n:integer):string;
begin
　with TStringList.Create do try
　　Text:=s;
　　Result:=Strings[n];
　finally free;end;
end;