Вставка изменяющегося <условия>

[Iamloli]

Да. А под b, программа должна читать присвоенное условие.

[mihali4]

Слушайте, почитайте-ка хоть одну книжку из выложенных на форуме и на сайте нашего клуба
http://programmersclub.ru/book/
Ну сколько можно задавать элементарные вопросы7
Повторюсь - мы помогаем, но у нас тут не ликбез...
Хотите сразу бан схлопотать ?

[maxionans]

Сообщение от Iamloli

Но попрошу паралельно исправить мой код)

А я бы сделал так:

procedure GrowLine(const ALine : TRect; AStep, ADelay, APointSize : Integer; ACanvas : TCanvas);

  function Sign(AValue : Single) : Single; inline;
  begin
    if AValue <> 0 then
      Result := AValue / Abs( AValue )
    else
      Result := 0;
  end;

var
  XStep, YStep : Single;
  X, Y : Single;
begin
  Assert( Assigned( ACanvas ) );
  if ( ALine.Left = ALine.Right ) and ( ALine.Top = ALine.Bottom ) then Exit;
  if AStep <= 0 then Exit;
  if APointSize <= 0 then APointSize := 1;

  XStep := Sign( ALine.Right - ALine.Left ) * AStep;
  YStep := Sign( ALine.Bottom - ALine.Top ) * AStep;
  YStep := YStep * Abs( ( ALine.Bottom - ALine.Top ) / ( ALine.Right - ALine.Left ) );

  X := ALine.Left; Y := ALine.Top;
  ACanvas.MoveTo( Round( X ), Round( Y ) );
  ACanvas.Pen.Width := APointSize;
  repeat
    X := X + XStep;
    Y := Y + YStep;

    if Abs( ALine.Right - X ) < AStep then
      begin
        X := ALine.Right;
        Y := ALine.Bottom;
      end;

    ACanvas.LineTo( Round( X ), Round( Y ) );
    Application.ProcessMessages;

    Sleep( ADelay );
  until ( ALine.Right = X ) and ( ALine.Bottom = Y );
end;

Использовать так:

GrowLine( Rect( 10, 10, 200, 100 ), 2, 20, 2, Form.Canvas );