как можно сократить код

[sergio280888]

процедуры кнопки почти идентичны

procedure TForm9.N14Click
(Sender: TObject);
var
sl : TstringList;
k: Integer;
begin   Form9.edit1.Visible :=False; Form9.Button1.Visible :=False;
  Form9.Close;
  form8.Visible:=true;
  sl := TstringList.Create;
  try
    sl.LoadFromFile('ôàéëû \2\lab1.txt');
    form8.Memo1.SetSelTextBuf
(PChar(sl.Text));
  finally
    sl.Free;
    begin     with form8.Memo1 do
      begin
      k:= pos
(form4.Edit4.Text,Text);
      if k>0 then
        begin         SelStart := k-1;
        SelLength := Length
(form4.edit4.text);
        end;
      end;
    end;   end;
end; procedure TForm9.N16Click
(Sender: TObject);
var
sl : TstringList;
k: Integer;
begin   Form9.edit1.Visible :=False; Form9.Button1.Visible :=False;
  Form9.Close;
  form5.show;
  sl := TstringList.Create;
  try
    sl.LoadFromFile('ôàéëû \3\text1.txt');
    form5.Memo1.SetSelTextBuf
(PChar(sl.Text));
  finally
    sl.Free;
    begin       with form5.Memo1 do
      begin
        k:= pos
(form4.Edit11.Text,Text);
        if k>0 then
        begin           SelStart := k-1;
          SelLength := Length
(form4.edit11.text);
        end;
      end;
    end;   end;
end;
procedure TForm9.N17Click
(Sender: TObject);
var
sl : TstringList; k: Integer;
begin
  Form9.edit1.Visible :=False; Form9.Button1.Visible :=False;
  Form9.Close;
  form3.show;
  sl := TstringList.Create;
  try
    sl.LoadFromFile('ôàéëû \4\text1.txt');
    form3.Memo1.SetSelTextBuf
(PChar(sl.Text));
  finally
    sl.Free;
    begin       with form3.Memo1 do
      begin
        k:= pos
(form4.Edit2.Text,Text);
        if k>0 then
        begin           SelStart := k-1;
          SelLength := Length
(form4.edit2.text);
        end;
      end;
    end;   end;
end; procedure TForm9.N18Click
(Sender: TObject);
begin
  Form9.edit1.Visible :=False; \
\скрытые кнопки Form9.Button1.Visible :=False;
\\скрытые кнопки Form9.Close;
Form10.Show; end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.