[jaxik]

Добрый день уважаемые программисты.

Подскажите пожалуйста как сделать блок схему? При рисовании канвас,

допустим

procedure TForm1.Button1Click(Sender: TObject);
begin
WITH Image1.Canvas DO
{здесь рисуем прямоугольник}
end;
end;