Вывод текста из файла в Memo по условию

procedure TForm3.Button2Click(Sender: TObject);
begin
 P:= ComboBox1.Text;
 if RadioGroup1.ItemIndex=0 then
  Memo1.Lines.Loadfromfile('Z:\Sotrud.txt');
 if RadioGroup1.ItemIndex=1 then
  begin
  Reset (F);
  WHILE NOT EOF(f) DO
  begin
  readln(f,o);
   if o=p then
    memo1.Lines.LoadFromFile('Z:\Sotrud.txt');
  If (Memo1.Lines.Text='') then
   ShowMessage('Сотрудники не найдены');
  end;
  end;
end;

var
  Form3: TForm3;
  p,o: string;
  F: TextFile;
implementation
 
{$R *.dfm}
 
procedure TForm3.Button1Click(Sender: TObject);
begin
 Form3.Close;
end;
 
procedure TForm3.Button2Click(Sender: TObject);
begin
 P:= ComboBox1.Text;
 if RadioGroup1.ItemIndex=0 then //вынос на Memo текста файла полностью
  Memo1.Lines.Loadfromfile('Z:\Sotrud.txt');
 
 if RadioGroup1.ItemIndex=1 then //вынос по условию
  begin
  Reset (F);
  WHILE NOT EOF(f) DO
  begin
  readln(f,o);
   if o=p then
    memo1.Lines.LoadFromFile('Z:\Sotrud.txt');
  If (Memo1.Lines.Text='') then
   ShowMessage('Сотрудники не найдены');
  end;
  end;
end;
 
procedure TForm3.FormCreate(Sender: TObject);
begin
 Combobox1.Items.LoadFromFile('Z:\Spets.txt');
 AssignFile(F,'Z:\Sotrud.txt');
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var t:TStringList;
    i,k:integer;
    s:string;
begin
if RadioGroup1.ItemIndex=0 then  //вынос на Memo текста файла полностью
 begin
  Memo1.Clear;
  Memo1.Lines.Loadfromfile('1.txt');
 end;
if RadioGroup1.ItemIndex=1 then //вынос по условию
  begin
   Memo1.Clear;
   t:=TStringList.Create;
   t.LoadFromFile('1.txt');
   k:=0;
   for i:=0 to t.Count-1 do
   if pos(Combobox1.Text,t[i])>0 then
    begin
     k:=1;
     Memo1.Lines.Add(t[i]);
    end;
   if k=0 then ShowMessage('Такой профессии нет!');
   t.Free
  end;
end;