function TForm1.VyberRadekZeSouboru(radek : Integer) : string
var
  f: textfile;
  string text;
  i : integer;
begin
  AssignFile(f, 'jebakJEgay.txt');
  if FileExists(f) then
    begin
      Reset(f);
      
      for i:=1 to radek
        begin
          ReadLn();
        end;
      
      ReadLn(f, text)
    end;
  CloseFile(f);
   
  Result:=text;
end;