[poli-smen]

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

всё всем спасибо)нужно просто в таймере было так написать

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Buf := TBitmap.Create;
.....

Только освобождать не забывай, а то твоё приложение со временем съест всю память и положит винду:

Код:

Buf.Free;