картотека (есть код программы) Делфи 7

[программирование]

добрый день, уважаемые программисты. помогите, пожалуйста, дописать программу на языке Делфи 7.

задание, которое уже сделано:
1)загрузка текстовых файлов в Memo поле.
2)сохранение файлов из Memo поля.
3)есть строка кода - как из текстового файла (блокнота) загружать информацию в Memo поле, чтобы каждое слово выводилось с нового рядка.
эта строка:

Memo2.Text := StringReplace(Memo1.Text, #32, #13#10, [rfReplaceAll]);

только точно не знаю - куда именно вставить строчку, которая находится выше.

задание, которое нужно сделать (пожалуйста, помогите)

При запуске открывается начальная форма2.
при Label1Click открывается форма 5, что позволяет вести карточки больных (загружает и сохраняет в файл).
Кнопка диагноз открывает форму диагностика, которая в свою очередь подключает следующие (форма специалист содержит МЕМО поле со списком всех специалистов, форма Анализы подключает форму задачи 1, форма рентген подключает форму с МЕМОПолем, содержащий информацию о времени работы кабинета Рентген).
Вложение 64557
форм5.png

хотя бы помогите, чтобы выводило в Memo поле из текстового файла каждое слово с новой строки. И хотелось бы, если у кого-то есть программа, то, пожалуйста,помогите.

заранее огромное спасибо всем.

[программирование]

выводится данные должны в Memo поле как на этом рисунке
данные.png

[Stilet]

куда именно вставить строчку

Не понимаю. Такое впечатление что код пишешь вообще не ты. Эту строку нужно вставлять туда где должно быть описано действие по расщеплению текста на слова. Где у тебя должно происходить расщепление? По клику кнопки? - вставляй туда. После загрузки файла? - вставляй туда.
Как можно еще обьяснить я не знаю. Кода нет. Базовых знаний у тебя нет. Смекалки тоже. На предидущих темах ты не учишься. Может стоит бросить это дело пока не поздно?

[программирование]

Не понимаю. Такое впечатление что код пишешь вообще не ты. Эту строку нужно вставлять туда где должно быть описано действие по расщеплению текста на слова. Где у тебя должно происходить расщепление? По клику кнопки? - вставляй туда. После загрузки файла? - вставляй туда.
Как можно еще обьяснить я не знаю. Кода нет. Базовых знаний у тебя нет. Смекалки тоже. На предидущих темах ты не учишься. Может стоит бросить это дело пока не поздно?

конечно бросить! да и куда я теперь вообще смогу поступить. мне уже поздно)

[программирование]

var
  Form31: TForm31;
  s:string;
 f:textfile;
  i,k:integer;
implementation
{$R *.dfm}
procedure TForm31.Button1Click(Sender: TObject);
begin
opendialog1.Filter:='Textovie faili| *.txt|';
   if opendialog1.Execute and fileExists (opendialog1.FileName) then
   begin
     assignfile(f,opendialog1.FileName);
     reset(f);
     memo1.Lines.Clear;
     while not eof(f) do
          begin
       readln(f,s);
       memo1.Lines.Add(s);
     end;
     closefile(f);
   end;
 showmessage(inttostr(memo1.Lines.Count));
 memo2.Lines.Clear;
 for i:=0 to memo1.Lines.Count-1 do
 begin
     s:=memo1.Lines[i];
        // showmessage(s+inttostr(memo1.Lines.Count));
     if (strtoint(s)=0) or (s='') then
                               else
                        begin
     if( strtoint(s) mod 2)=0 then
       memo2.Lines.Add(s);
                        end;
    //mes := MessageDlg ('Вы хотите сохранить страницу?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
 end;
end;
procedure TForm31.Button2Click(Sender: TObject);
begin
SaveDialog1.FileName := '.txt';
if SaveDialog1.Execute then
begin
memo2.Lines.SaveToFile (SaveDialog1.FileName);
memo2.Modified := false; {необходимо при обработке команды Создать}
end;
end;
end.

[GetMax]

procedure TForm31.Button1Click(Sender: TObject);
begin
opendialog1.Filter:='Textovie faili| *.txt|';
   if opendialog1.Execute and fileExists (opendialog1.FileName) then
   begin
     assignfile(f,opendialog1.FileName);
     reset(f);
     memo1.Lines.Clear;
     while not eof(f) do
          begin
       readln(f,s);
       memo1.Lines.Add(s);
     end;
     closefile(f);
   end;
 showmessage(inttostr(memo1.Lines.Count));
 memo2.Lines.Clear;
 Memo2.Text := StringReplace(Memo1.Text, #32, #13#10, [rfReplaceAll]);//Вставь например сюда
 end;
end;

[Stilet]

readln(f,s);
memo1.Lines.Add(s);

Я был прав. Предидущая тема с моим ответом была напрочь проигнорированна.

да и куда я теперь вообще смогу поступить. мне уже поздно)

Армия всегда открыта для народа. Программирование это не твое, без обид.