Наполнение сообщающихся сосудов

unit Sosud;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    KranBtn: TButton;
    Timer1: TTimer;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure KranBtnClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a: integer=290;
  f,g : integer;
 
implementation
 
{$R *.dfm}
 
procedure Posuda();  //
begin
//типа крана
With Form1.Image1.Canvas do begin
Pen.Color:=clBlack;
Rectangle(205,10,305,30);
Rectangle(205,29,225,50);
//сосуд
Rectangle(40,90,110,290);
Rectangle(180,90,250,290);
Rectangle(109,250,181,280);
Pen.Color:=clWhite;
Rectangle(108,251,182,279);
end;
end;
 
procedure Dobav(a, b : integer);  
var x, y : integer;
begin
x:=a; y := b;
//типа крана
With Form1.Image1.Canvas do begin
Pen.Color:=clBlack;
Rectangle(x+180,y+90,x+250,y+290);
Rectangle(x+109,y+250,x+181,y+280);
Pen.Color:=clWhite;
Rectangle(x+108,y+251,x+182,y+279);
end;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
var i : integer;
begin
  for i:= 1 to StrToInt(Edit1.text) do
    begin
    f := f + 140;
    Dobav(f,g);
    end;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
f := 0; g := 0;
Posuda();
end;
 
procedure TForm1.KranBtnClick(Sender: TObject);
begin
KranBtn.Enabled:=false;
Timer1.Interval:=20;  //задаем скорость заполнения
Timer1.Enabled:=True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var i, v : integer;
begin
if a > 100 then
  begin
  v := 0;
  a := a - 1;
  With Image1.Canvas do begin
    for I := 1 to StrToInt(Edit1.Text) + 2 do
      begin
 
        Pen.Color := clBlue;
        Brush.Color := clBlue;
        MoveTo(41+v,a);
        LineTo(109+v,a);
        if (a > 248) and (a < 280) and (i < StrToInt(Edit1.Text) + 2) then
          begin
          MoveTo(108+v,a);
          LineTo(182+v,a);
          end;
 
        v := v + 140;
      end;
  end;
 
end;
end;
 
end.