procedure TForm1.SpeedButton13Click(Sender: TObject);
var
F: TextFile;
S: string;
sr: tsearchrec;
datDatei: file of byte;
chrZeichen: byte;
begin
led_anzahl_zeile:=led_anzahl_zeile + 1;
bildgroesse :=bildgroesse + raster;
videocanvas.width := led_anzahl_zeile * raster;
videocanvas.height := led_anzahl_zeile * raster;
label1.caption:=LeftPad(trackbar1.position);
if FindFirst('d://mdf/projects/kosmetikstudio_zarriess/temp/'+LeftPad(trackbar1.position)+'.bmp',faAnyFile,sr) = 0 then
begin
if (SR.Attr and faDirectory) = 0 then
begin
bmp:=TBitmap.Create;
vpbmp:=TBitmap.Create;
videocanvas.Canvas.FillRect(0,0,videocanvas.Width,videocanvas.height);
bmp.Width:=bildgroesse;
bmp.Height:=bildgroesse;
bmp.LoadFromFile('d://mdf/projects/temp/'+sr.name);
vpbmp.Width:=led_anzahl_zeile ;
vpbmp.Height:=led_anzahl_zeile;
vpbmp.Canvas.copyrect(rect(0,0,led_anzahl_zeile,led_anzahl_zeile),bmp.canvas,rect(0,0,bildgroesse,bildgroesse));
videocanvas.Canvas.StretchDraw(Rect(0,0,videocanvas.height,videocanvas.width),vpbmp);
label2.caption:=inttostr(bildgroesse)+' '+IntToStr(led_anzahl_zeile)+' '+inttostr(bmp.width)+' '+inttostr(vpbmp.width)+' '+inttostr(0) ;
videocanvas.Update;
Application.ProcessMessages;
bmp.Free;
vpbmp.Free;
end;
FindClose(SR);
end;
end;