各位兄弟，帮忙分析一下是什么原因导致出现了“Error Saving device context”的错误。 ( 积分: 10 )

各位兄弟，帮忙分析一下是什么原因导致出现了“Error Saving device context”的错误。
程序要求是将每隔5秒刷新显示从串口接收的数据。屏蔽掉我做了标志（/////////////###################）的那一行代码，程序运行正常，如果打开那一行代码，程序运行后会不定时的弹出“Error Saving device context”的错误框。
通过主框架的COM1控件接收串口数据存放到全局变量strlist:Tstringlist;
供线程处理。
在主框架中定义了以下类型：
type
PReadList=^RReadList;
RReadList=record
ReadID:string;
mx:Integer;
my:Integer;
Image:TImage;
strHint:string;
end;

type
PTagList=^RTagList;
RTagList=record
TagID:string;
mx:Integer;
my:Integer;
Image:TImage;
strHint:string;
end;

在主框架中定义了全局变量：
P_ReadListReadList;
P_TagListTagList;

TagList:TList;

ScHash:THashedStringlist;
//存放的是P_ReadList类型的数据

以下是线程定义：
unit Thread;
interface
uses
Classes,sysUtils,windows,Dialogs,ActiveX,math,ExtCtrls;

type
ReceiveThread = class(TThread)
private
{ Private declarations }
....
RecData:array[1..30] of integer;
//存放解析后的数据；

procedure Readstr;
protected
list1:Tstringlist;
strPictureTagID: string;
procedure ProcessRecStr(const Rec:string);
procedure SaveToDatabase;
procedure ShowInforlist;
procedure ShowTreeNode;
procedure RefreshRealTime;
procedure Execute;
override;
end;


implementation
uses MainForm,dataModule,InforList,PatientTree,RealTime;
procedure ReceiveThread.Readstr;
begin
iccount:= strlist.Count;
//strlist为全局变量，存放着串口接收到的数据帧
if iccount>0 then
begin
Readstring:= strlist.Strings[0];
strlist.Delete(0);
end
else
begin
Readstring:='';
end;
end;

//对从串口接收的数据进行解包处理
procedure ReceiveThread.ProcessRecStr(const Rec:string);
var
J:Integer;
L:Integer;
data:integer;
checkout:integer;
begin
...
....
//解包处理完成后，要求对Frm_RealTime进行操作
if assigned(Frm_RealTime) then
RefreshRealTime
else
list1.Clear;

end;

//刷新显示屏（5秒刷新一次屏幕）
procedure ReceiveThread.RefreshRealTime;
var i,Index:integer;
strReader,strTag:string;
rx,jiao,ry:integer;
t_Object: TObject;
begin
strReader:=inttostr(Recdata[2]);
//Recdata[2],Recdata[4] 是解包后得到的字符串
strTag:=inttostr(Recdata[4]);
i:=list1.IndexOfName(strTag);
//list1存放的是最近5秒内收到的解包后的数据
if i=-1 then
list1.Add(strTag+'='+strReader)
else
begin
list1.Delete(i);
list1.Add(strTag+'='+strReader);
end;

if IsRefresh then
//IsRefresh是5秒钟时间到的判断符，
begin
if TagList.Count>0 then
//先清空原先屏幕上的各个Image
begin
for i:=(TagList.Count-1)do
wnto 0do
begin
P_TagList:=TagList.Items;
TagList.Delete(i);
P_TagList.Image.Free;
DisPose(P_TagList);
end;
end;

Randomize;
if list1.Count>0 then
//创建最新的list1里所对应的Image；
for i:=0 to (list1.Count-1)do
begin
rx:=Random(50);
jiao:=Random(360);
ry:=round(rx*sin(2*Pi*jiao/360));
rx:=round(rx*cos(2*Pi*jiao/360));
strTag:=list1.Names;
strReader:=list1.ValueFromIndex;
Index:=ScHash.IndexOf(strReader);
if Index=-1 then
continue;
t_Object:=ScHash.Objects[Index];
new(P_TagList);
P_TagList.TagID:=strTag;
P_TagList.mx:=rx+PReadList(t_Object).mx;
P_TagList.my:=ry+PReadList(t_Object).my;
P_TagList.strHint:='标签号：'+ strTag;
P_TagList.Image:=TImage.Create(nil);
//////如果屏蔽下面一行，程序运行正常，但是不能将图片显示出来，如果运行这一行，就会在程序运行期间不定时的出现“Error Saving device context”的错误框。

P_TagList.Image.Parent:=Frm_RealTime.Panel3;
/////////////#######################################

P_TagList.Image.Top:=P_TagList.my;
P_TagList.Image.Left:=P_TagList.mx;
P_TagList.Image.Width:=25;
P_TagList.Image.Height:=25;
P_TagList.Image.Picture.LoadFromFile(strPictureTagID);
P_TagList.Image.Hint:=P_TagList.strHint;
P_TagList.Image.ShowHint:=true;
P_TagList.Image.Transparent:=true;
TagList.Add(P_TagList);

end;

list1.Clear;
IsRefresh:=false;
end;
end;

//线程执行代码
procedure ReceiveThread.Execute;
begin

list1:=Tstringlist.Create;
TagList:=TList.Create;
strPictureTagID:= Frm_Main.IniFile.ReadString('BACKGROUND','TagID','');
while not terminateddo
begin
synchronize(Readstr);
if Readstring<>'' then
ProcessRecStr(Readstring)
else
sleep(3000);
end;

end;

end.