dynamisch Anmen erzeugen und einem Image zuweisen

[punker-lili]

Delphi-Quellcode:

function name_image(var name:string):string;
var c: integer;
begin
c:=StrToInt(copy(name,length(name)-1,1));
c:=c+1;
name:=copy(name,0,length(name)-1)+IntToStr(c);
end;

sorry