Добавление текста из документов в поле Memo

[Sciv]

А как выполнить чтение сначала 1я строка

Ух ты! Основы работы с файлами!

В общем, так:

var F: TextFile;  //Объявляем файловую переменную
    s: string; //строка чтения
begin
  AssignFile(F,<имя файла с путем, все в кавычках>); // Связываем с реальным файлом
  Reset(F);  //Открываем для чтения
  While not Eof(F) do begin//Цикл Пока не конец файла повторять
    ReadLn(F,s); //Считываем строку
    {И тут делаем со строкой все, что нам нужно}
  end;
  CloseFile(F); //Закрываем файл
end.

Но лучше читайте для начала учебники - больше пользы, чем от отдельных тем, нахватанных по форумам