[apollon61]

Есть две процедуры: Первая рисует кнопки и открывает текстовый файл, вторая обрабатывает клик по кнопки. Вот эти процедуры:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
f : TStringList;
begin
  f := TStringList.Create();
  f.LoadFromFile('C:\1.txt');
for i:=1 to 4 do
with TBitBtn.Create(StringGrid1) do
 begin
 Caption:='Кнопка';
 Parent:=StringGrid1;
 BoundsRect:=StringGrid1.CellRect(1, i);
 OnMouseUp:=BitBtn1MouseUp;
 end;
end;

procedure TForm1.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
ShowMessage(<Здесь информация о кнопки>)
end;

Админ: Пользуемся тегами!

Вопрос: Как во второй процедуре по клику какой либо из кнопок выводилась информация из файла соответствующая данной кнопки .
Заранее спасибо