Сделал так
Код:
procedure TForm4.Timer1Timer(Sender: TObject);
var
x,y: integer;
begin
Image1.Canvas.MoveTo(0,Height);
Randomize;
x:= random(Image1.Width);
y:= random(Image1.Height);
Image1.Canvas.LineTo(x,y);
Image1.Canvas.Pen.Color:=Random($FFFFFF);
end;
спасибо, все работает но линии выходят из точки которая не в Image а где то ниже и рамки нет никакой просто белый фон, так должно быть? (просто первый раз разбираюсь с Image)