음.. 코드와 설명으로 보아하건 데... 그렇게 동작하는 것이 맞는 거 같군요...
가령...
1)
Myimage  := Timage.create(form1) ;
Myimage.parent := form1;
Myimage.cavnas.moveto(0,0);
Myimage.canvas.lineto(100,100);
2)
Myimage  := Timage.create(form1) ;
Myimage.parent := form1;
Myimage.cavnas.moveto(0,0);
Myimage.canvas.lineto(100,100);
3)
Myimage  := Timage.create(form1) ;
Myimage.parent := form1;
Myimage.cavnas.moveto(0,0);
Myimage.canvas.lineto(100,100);
4)
MyImage.Free;
이렇게 4개를 동시에 실행 시킨다면, 어케 될가요?
1),2),3)에서 TImage에 해당하는 메모리 덩어리가 3개가 생기는 데, 그 메모리들을
가리키는 값들, 포인터 겠죠? 그건 어디에 있나요? 마지막 거 이외에는 없다가
정답입니다. 따라서 4) MyImage.Free를 실행시킬 때는 마지막 3)에서
만들어진 TImage만 메모리에서 없어지겠죠...
생성 및 해제가 매우 일반적이라면...즉, 중간에 있는 것들을 지우고 모...
그런 작업이 없이 한번에 생성했다가 한번에 삭제시킨다면...
TObjectList를 사용해보세요... TObjectList.OwnsObject 항목을 True로
해 놓으면, TObjectList.Clear 혹은 TObjectList.Free를 호출할 때 자동으로
리스트 안의 객체들을 해제시킵니다.

그럼 오늘도 즐입다.

먼저 답변 감사합니다..
그런데 잘 안돼서 다시 글 올립니다.
var
Myimage : Timage;
kkk : TObjectList;
i : integer;


procedure TForm1.Button1Click(Sender: TObject);
begin
i := i + 1 ;
Myimage  := Timage.create(form1) ;
Myimage.parent := form1;
Myimage.canvas.moveto(0,0);
myimage.Top := 100*i;
Myimage.canvas.lineto(100,100);
kkk := TObjectList.Create(True);
kkk.OwnsObjects := true;
kkk.Add(Myimage);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
kkk.free;
end;

이렇게 하니 마찬가지로 마지막꺼만 지워지고 나머지는 그대로 남아 있네요..
제가 잘못 설정한건가요..
다시 한번 부탁드립니다..
그럼 즐코하세요

안녕하세요. 한원희입니다.

문제는 버튼을 누를때 마다, 새로운 ObjectList 객체를 생성하고, 그곳에다가
새로 만든 이미지를 넣으니까, 각 이미지 마다 목록 객체가 생기면서, 목록에는
새로 생긴 단 하나의 이미지만 들어가게 코딩이 되어 있어서 그럽니다.
kkk라는 변수를 멤버 변수(또는 전역 변수)로 선언하시고,

private
  FImageList:TObjectList;
  // ...

폼의 생성자에서 FImageList를 생성해 주고요.

  FImageList:=TObjectList.Create(True);
  FImageList.OwnsObjects:=true;

폼의 파괴자에서 FImageList를 해제해 줍니다.

  FImageList.Free;

이런식으로 해주고,
이미지를 생성하는 부분에서는 따로 ObjectList 객체를 생성하지 말고,
생성한 이미지만 추가하도록 하면 됩니다.

그럼, 즐거운 하루 되세여~