Create objects using dynamic class names

Hello,

The subject might be an incorrect description of what I want. What I
want is quite simple.

I have got a part of code whic looks like this:

lFrame := TFrameStap1.Create(PanelMidden, 1);
FFrameStappen.Add(lFrame);
lFrame := TFrameStap2.Create(PanelMidden, 2);
FFrameStappen.Add(lFrame);
lFrame := TFrameStap3.Create(PanelMidden, 3);
FFrameStappen.Add(lFrame);
lFrame := TFrameStap4.Create(PanelMidden, 4);
FFrameStappen.Add(lFrame);
lFrame := TFrameStap5.Create(PanelMidden, 5);
FFrameStappen.Add(lFrame);

Because I keep repeating myself, I would do this in some kind of loop.

for i:= 0 to MAXFRAMES - 1 do
begin
lFrame := XXXXXXXXXXXXXXX.Create(PanelMidden, i);
FFrameStappen.Add(lFrame);
end;

With what should I replace XXXXXXXXXXXXXXX? If it is possible, I guess
I have to do something with ClassName. Is it possible?

Thanks for your help.

Boefje

.