uses
  DateUtils;
 
type
{ дни недели
      DayMonday     = 1;
      DayTuesday    = 2;
      DayWednesday  = 3;
      DayThursday   = 4;
      DayFriday     = 5;
      DaySaturday   = 6;
      DaySunday     = 7; }
  TDows = set of Byte;
 
function IsHoliday(const dt: TDateTime): Boolean;
begin
  // функция возвращает true, если дата dt - гос. праздник/выходной
  // сам напишешь.
end;
 
function FillComboDates(cb: TComboBox; const Mask: TDows; const Interval: int32): Boolean;
var
  dt, edt: TDateTime;
  dow: int32;
begin
  dt:= Date();
  edt:= IncDay(dt, Interval);
  cb.Items.Clear();
  cb.Text= ''; // не обязательно
 
  repeat
    if not IsHoliday(dt) and (Byte(DayOfTheWeek(dt)) in Mask)
      then cb.Items.Add(FormatDateTime('dddd, d mmm yyyy', dt);
    IncDay(dt);
  until dt > edt;
 
  Result:= cb.Items.Count <> 0;
  cb.Style:= csDropDownList;
 
  if Result
    then cb.ItemIndex:= 0;
end;

var
  Memo: array[1..3] of TMemo;
  i: Integer;                //глобальная переменная
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo[1]:= Memo1;
  Memo[2]:= Memo2;
  Memo[3]:= Memo3;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo[i].Lines.Add('B'); //записать 'B' в Memo[i]
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Memo: TMemo;
begin
  Memo:= TMemo(FindComponent('Memo' + IntToStr(i)));
  // или Memo:= TMemo(FindChildControl('Memo' + IntToStr(i)));
  if Assigned(Memo)
    then Memo.Lines.Add('B'); //записать 'B' в Memo[i]
end;

type
  TfFilecreate = class(TForm)
    // ...
    procedure readcoords(Sender: TObject); // метод класса TfFilecreate 
    // ...
  end;
 
implementation 
 
procedure TfFilecreate.readcoords(Sender: TObject);
begin
  // код обработчика
end;

procedure TfFilecreate.BitBtn1Click(Sender: TObject);
var
  // ...............
begin
  // ...............
  bnext:=TBitBtn.Create(fHlp);
  with bnext do 
    begin
      top:=fHlp.ClientHeight-30;
      left:=110;
      kind:=bkOk;
      parent:=fHlp;
      Caption:= 'blablabla';
      onClick:=readcoords; // типа того
    end;
end;

TMailClient = class(TComponent)

procedure SendSMS(Phone, Text: string);

Цитата (Толяныч):

Цитата (Толяныч):

Цитата (Толяныч):

Цитата (ierihon1):

type
  TCustomFigure = class
  private
    // поля и вспомогательные внутренние методы, например
    FLineWidth: Integer;
    FLineColor: TColor;
    FBackground: TColor;
    // и т.д.
  protected
    procedure Draw(ACanvas: TCanvas); virtual; { abstract; - если нужно }
  public
    constructor Create;
    destructor Destroy; override;
 
    // свойста
    property LineWidth: Integer read FLineWidth write FLineWidth;
    property LineColor: TColor read ... write ...;
    property Background: TColor ......; // и т.д.
 
    // события. ...
  end;

var
  tc: TSomeClass;
begin
  tc:= TSomeClass.Create(...);
  try
    // работа с экземпляром класса
  finally
    tc.Free();
  end;
end;

Цитата (ierihon1):

// Преобразование целого в двоичную строку и дополнение слева нулями до длины P
function Int2Bin(const X: Integer; const P: Byte): string;
var
  i: Integer;
begin
  Result:= '';
  i:= X;
 
  repeat
    if (i and 1) = 0
      then Result:= '0' + Result
      else Result:= '1' + Result;
 
      i:= i shr 1;
  until i = 0;
 
  while Length(Result) < P do
    Result:= '0' + Result;
end;