unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  TTestThread=Class(TThread)
    private
    FFn:String;
    public
    Constructor Create(fn:String);overload;
    Procedure Execute;override;
  End;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TTestThread }

constructor TTestThread.Create(fn: String);
begin
  inherited Create(false);
  FFn := fn;
end;

procedure TTestThread.Execute;
var
 bmp :TBitmap;
 i:Integer;
begin
  inherited;
   bmp :=TBitmap.Create;
   bmp.Width := 100;
   bmp.Height := 100;
   bmp.Canvas.Pen.Color := clBlue;
   for I := 0 to 100 do
   begin
     bmp.Canvas.MoveTo(0,0);
     bmp.Canvas.LineTo(100,i);
   end;
   bmp.SaveToFile('C:\temp\test\' + Ffn );
   bmp.Free;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 i:Integer;
begin
   for I := 0 to 20 do TTestThread.Create(IntToStr(i)+'.bmp');
end;

end.