Кнопки и файлы

uses 
  GraphABC, ABCButtons;
 
///процедура выполняется при нажатии на кнопку
procedure f();
begin
  Brush.Color := clRandom; 
  font.Color := clBlue;
  font.Size := 20;
  TextOut(200, 200, 'Hello World!')
end;
 
var
  b1: buttonABC;
 
begin
  b1 := new buttonABC(10, 10, 100, 50, 'Кнопка', clRed);
  b1.OnClick := f //при нажатии на кнопку вызываем процедуру f
end.

uses 
  GraphABC, ABCButtons;
 
///процедура выполняется при нажатии на кнопку
procedure f(sender : buttonABC);
begin
  Brush.Color := clWhite; 
  Pen.Color := clWhite;
  Rectangle(380,200,800,250);
  Brush.Color := clBlue; 
  font.Color := clWhite;
  font.Size := 18;
  TextOut(380, 200, 'читаем '+sender.Text+'.txt')
end;
 
const
  maintextfilename = 'text.txt'; 
 
var
  buttons : array of buttonABC;
 
begin
  if Not System.IO.File.Exists(maintextfilename) then begin
    WriteLn('Нет файла '+maintextfilename );
    Exit
  end;
 
  SetWindowWidth(800);
  SetWindowTop(20);
  
  var spisok:=ReadAllLines(maintextfilename);
  var n:=0;
  foreach var s in spisok do 
    if length(trim(s))<>0 then Inc(n);
    
  SetWindowHeight(max(400,10 + n*35));
  SetLength(buttons, n);
  var y := 10;
  var i := 0;
  foreach var s in spisok do 
    if length(trim(s))<>0 then begin
        buttons[i] := new buttonABC(10, y, 270, 32, s, clGreenYellow);
        buttons[i].OnClickExt := f; //при нажатии на кнопку вызываем процедуру f
        y:=y+35;
    end;
    
end.