Исходный код рассмотренной в проектах программы Автодоверенность. Delphi 7, FastReport, MS Access, rxlib275 для Делфи.

var
Form1: TForm1;
a : TBitMap;
implementation

uses Unit2;

{$R *.dfm}

procedure Tform1.WMLButtonDown(var Msg: TMessage);
begin
Perform(WM_NCLBUTTONDOWN, HTCAPTION, Msg.LParam);
end;

function BitmapToRegion(Bitmap: TBitmap; TransColor: TColor): HRGN;
var
X, Y: Integer;
XStart: Integer;
begin
Result := 0;
with Bitmap do
for Y := 0 to Height - 1 do
begin
X := 0;
while X < Width do
begin
// Пропускаем прозрачные точки
while (X < Width) and (Canvas.Pixels[X, Y] = TransColor) do
Inc(X);
if X >= Width then
Break;
XStart := X;
// Пропускаем непрозрачные точки
while (X < Width) and (Canvas.Pixels[X, Y] <> TransColor) do
Inc(X);
// Создаём новый прямоугольный регион и добавляем его к
// региону всей картинки
if Result = 0 then
Result := CreateRectRgn(XStart, Y, X, Y + 1)
else
CombineRgn(Result, Result,
CreateRectRgn(XStart, Y, X, Y + 1), RGN_OR);
end;
end;
end;

Function functext:string;
begin
If form1.ComboBox2.Text = 'Год' then
begin
Case StrToInt(form1.ComboBox1.Text) of
1: result := '1 год';
2: result := '2 года';
else
result := '3 года';
end;
exit;
end;

If form1.ComboBox2.Text = 'Месяц' then
begin
Case form1.ComboBox1.ItemIndex+1 of
1,21,31: result := form1.ComboBox1.text+' Месяц';
2,3,4,22,23,24: result := form1.ComboBox1.text+' месяца';
5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25,26,27,28,29,30: result := form1.ComboBox1.text+' месяцев';
end;
exit;
end;

If form1.ComboBox2.Text = 'День' then
begin
Case form1.ComboBox1.ItemIndex+1 of
1,21,31: result := '1 день';
2,3,4,22,23,24: result := form1.ComboBox1.text+' дня';
5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25,26,27,28,29,30: result := form1.ComboBox1.text+' дней';
end;
exit;
end;
end;

procedure BeforeAppend;
begin
Form1.EditNew.Font.Color := clNavy;
Form1.EditNew.Enabled := false;
Form1.e15.Date := Trunc(Now);
Form1.Q_new['Дата'] := Trunc(Form1.e15.Date);
Form1.Q_new['ТехДата'] := Trunc(Form1.e14.Date);
Form1.Q_new['ПаспортДата'] := Trunc(Form1.d5.Date);
Form1.Q_new['ВУВыдано'] := Trunc(Form1.d8.Date);
Form1.Q_new['ПаспортДата2'] := Trunc(Form1.b5.Date);
Form1.Q_new['ВУВыдано2'] := Trunc(Form1.b8.Date);
Form1.Q_new['СрокЗН'] := 1;
Form1.Q_new['СрокТип'] := 'Год';
Form1.Q_new['СрокТекст'] := '1 год';
// Form1.Q_new['СрокДата'] := 'Год';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
frxReport1.DataSet:=frxDBDataset1;
frxReport1.LoadFromFile('Trust.fr3');
frxReport1.DesignReport;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
Panel1.Visible := true;
Panel3.Visible := true;
Panel2.Visible := false;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
Panel1.Visible := false;
Panel2.Visible := true;
Panel3.Visible := false;
e