[AlexSku]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Pattern, S, Res: String;
  I, J: Integer;
begin
  Pattern:= AnsiUpperCase(Edit1.Text);  // 'Март'
  S:= AnsiUpperCase(Edit2.Text);        // Можно из ListBox, Memo...
  Res:= '';
  J:= 1;
  for I:= 1 to Length(Pattern) do
  begin
    J:= Pos(Pattern[i], S);
    if J > 0 then
    begin
      Res:= Res + Pattern[i];
      Delete(S, J, 1);
      if S = '' then Break;
    end;
  end;
  Edit3.Text:= Res;
end;