var
  File: TStrings;
begin
  File := TStringList.Create;
  File.LoadFromFile('Путь к файлу');

  Memo1.Lines.Add(AFile.Strings[N]); //// получаем первую строку

  AFile.Free;
end;