InputmergeFields

procedure TformRepWP0.BtnInsertFieldClick(Sender: TObject);
var i,j : Integer;
  s : string;
  sFieldName :string;
  sVisFieldName :string;
  sFormel :String;
begin
  i := Fieldbox.ItemIndex;
  j := DataSourceBox.ItemIndex;
  if i<0 then ShowMessage('Please open a table and select a field') else
  begin
   sFieldName := DataSourceBox.items[J]+ '.' +Fieldbox.Items[i];
   sVisFieldname := Fieldbox.Items[i];
   sFormel := Fieldbox.Items[i];
   if sVisFieldName = 'GPREIS' then
   begin
     sFieldName := 'PAINT_CALC';
     sFormel := 'UEBERTRAG';
   end;
   if sVisFieldName = 'UEBERTRAG' then
   begin
     sFieldName := 'PAINT_CALC';
     sFormel := '+UEBERTRAG';
   end;


   WPRichText1.InputMergeField(sFieldName,sVisFieldname,sFormel);
  end;
end;