[eko]

Построение:
procedure TForm1.Button1Click(Sender: TObject);
var x,y : Integer;
begin
......
end;