Разбитие текста на константы a и b

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  for i:=0 to Memo3.Lines.Count-1 do
    begin
      if AnsiPos('Найти:', Memo3.Lines[i])<>0 then
        begin
          memo1.Lines.Add('Найдено в строке №'+IntToStr(i));
          break;
        end;
    end;
end;

const
  Marker = 'Найти: ';
var
  a, b: string;
  ...
begin
  ...
  if Pos(Marker, Memo.Lines[i]) = 1 then
    begin
      а:= Copy(Memo.Lines[i], 1, Length(Marker));
      b:= Copy(Memo.Lines[i], Length(Marker)+1, MaxInt);
    end;

A:= Copy(Memo4.Lines[i], 1, Length(Marker));
B:= Copy(Memo4.Lines[i], Length(Marker)+1, MaxInt);

procedure TForm1.Button3Click(Sender: TObject);
const
  Marker = 'Найти: ';
var
  a, b: string;
  i: Integer;
begin
if Pos(Marker, Memo4.Lines[i]) > 0 then
begin
a:= Copy(Memo4.Lines[i], 1, Length(Marker));
b:= Copy(Memo4.Lines[i], Length(Marker)+1, MaxInt);
memo1.Lines.Add(b);
end;
end;

function MySearch(const AInput, SearchFor: string; out a, b: string): Boolean;
var
  i: Integer;
begin
  i := pos(SearchFor, AInput);
  Result := i > 0;
  if Result then
  begin
    a := Copy(AInput, i, Length(SearchFor));
    b := Copy(AInput, i + Length(SearchFor), Length(AInput));
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  a, b: string;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    if MySearch(Memo1.Lines[i], 'Найти:', a, b) then
      Break;
  ShowMessage(Format('a=%s; b=%s;', [a, b]));
end;