Hmm, well I'm not sure how easy this would be to do with a form. But it should be quite simple using the debug image window that people use to make scar games.
Play around with this. When you run it now, you should see a black box with white number counting to 10 in the middle. Basically you can just change the message to make it auto update your proggy.
SCAR Code:
program New;
var
ChatChars,c:integer;
procedure paint;
var
buffer, message1:integer;
begin
buffer:= BitmapFromString(500, 400, '');//this is what we draw to before we draw to the actual screen. Helps make it look prettier
message1:=CreateBitmapMaskFromText(inttostr(c), ChatChars);//we are going to be drawing bitmaps, so we need our message to be a bitmap.
DisplayDebugImgWindow(500, 400);//displays our window with designated size
FastDrawClear(buffer, clblack);//makes the buffer black
FastDrawSizeTransparent(250,200,300,250, message1, buffer);//draws our message to the buffer starting at 250,200 (x1,y1) and bottom left coords are 300,250 (x2,y2)
SafeDrawBitmap(buffer, GetDebugCanvas, 0,0);//draws everything in our buffer to the screen (the black background and the message)
end;
begin
LoadChars('');
ChatChars:=LoadChars2(AppPath+'CharsChat2\');//do this so that you can make the text into a bitmap
repeat
wait(500);
paint
c:=c+1;
until(c>10)
end.