[ryderx34]

Код:

var
  A, B: Integer;
begin
  if SaveDialog1.Execute then
  begin
    A := Pos('$', Memo1.Text);
    B := Pos('VSE', Memo1.Text) - A;
    with TStringList.Create do
    begin
      Text := Copy(Memo1.Text, A, B);
      SaveToFile(SaveDialog1.FileName);
      Free;
    end;
  end;
end;