Aşağıdaki kodu alarak tekrar dener misiniz:

function addbtn(GelenForm,konum,butonIsim,btnText, bgDeger,

bottomDeger,rightDeger,leftDeger,topDeger,HeightDeger,widthDeger,rhdeger,rwDeger,

fontClrDeger,brdrClrDeger): TClProButton;

var

  Btn : TClProButton;

begin

  Btn := GelenForm.AddNewProButton(konum,butonIsim,btnText);

  with Btn do

  begin

    //Align:= alignDeger;

    //caption:=btnText;

    Margins.Bottom := bottomDeger;

    Margins.Right := rightDeger;

    Margins.Left := leftDeger;

    Margins.Top := topDeger;

    Height := HeightDeger;

    //clprosettings.FontVertAlign := fontvertDeger;

   // clprosettings.fontHorzAlign := fonthorzDeger;

    clprosettings.RoundHeight :=rhdeger;

    clprosettings.RoundWidth := rwDeger;

    //clprosettings.FontSize := fontSizeDeger;

  end;

  //----------------------------------------------------------------------------

  if(bgDeger = '') then

  begin

    Btn.clProSettings.BackgroundColor:=clAlphaColor.clwhite;

  end else

  begin

    Btn.clProSettings.BackgroundColor:=clAlphaColor.clHexToColor(bgDeger);

  end;

  //----------------------------------------------------------------------------

  if(fontClrDeger = '') then

  begin

    Btn.clProSettings.FontColor:=clAlphaColor.clblack;

  end else

  begin

    Btn.clProSettings.FontColor:=clAlphaColor.clHexToColor(fontClrDeger);

  end;

  //----------------------------------------------------------------------------

  if(brdrClrDeger = '') then

  begin

    Btn.clProSettings.FontColor:=clAlphaColor.clblack;

  end else

  begin

    Btn.clProSettings.FontColor:=clAlphaColor.clHexToColor(brdrClrDeger);

  end;

  //----------------------------------------------------------------------------

  

  Btn.SetclProSettings(Btn.clProSettings);

 

  Result := Btn;

end;