[AlexandrV]

вот код

Код:

Function ShowDialogYesNo(TextOkno, TextMemo, TextYesButton, TextNoButton:String;
TextColorYesButton, TextColorNoButton, TextColorTenYesButton, TextColorTenNoButton:TColor;
ColorYesButton, ColorNoButton:TColor):TButtonLabelClick;
begin
  Form2.Caption:=TextOkno;
  Form2.Memo1.Text:=TextMemo;
  Form2.Label1.Caption:=TextYesButton;
  Form2.Label2.Caption:=TextNoButton;
  Form2.Label1.Font.Color:=TextColorYesButton;
  Form2.Label2.Font.Color:=TextColorNoButton;
  Form2.Label1.ShadowColor:=TextColorTenYesButton;
  Form2.Label2.ShadowColor:=TextColorTenNoButton;
  Form2.Label1.Color:=ColorYesButton;
  Form2.Label2.Color:=ColorNoButton;
  //|||||||||||||||||||||||||||\\
end;

так как у Label нету ModalResult то надо сделать по другому.
Не спрашивайте почему Label в данном случае Raize TLabel просто скажите решение