Банальный спсоб
Код:
var
AFile: TStrings;
begin
AFile := TStringList.Create;
AFile.LoadFromFile('Путь к файлу');
Memo1.Lines.Add(AFile.Strings[N]);
AFile.Free;
end;
В данном случае строки нумеруются от 0, т.е. AFile.Strings[0] - получаешь первую строку