RichView и Image

[Razyiller]

почему при Destroy формы ошибка?
это процедура обработки строки и вставки картинок

procedure TChat.ShowColorMassage(msg: String; index,NumStyle: Byte);
var q,l:integer;
ss,ss1:string;

begin
ss:=copy(msg,2,length(msg));//текст
ss1:='';
l:=0;
smInput:=sminput+1;//кол-во строк всего
if Copy(ss,14,length(ss))<>'' then
begin
ChatRichEdit.AddTextFromNewLine('', NumStyle);
ChatRichEdit.Reformat;

while l<=Length(ss) do
begin
ss1:=ss1+ss[l];
for q:=1 to colSm do
begin
if (copy(ss,l,Length(SmileCod[q]))=SmileCod[q])and((copy(ss,l,Length(SmileCod[q]))<>''))
then
begin
ChatRichEdit.AddText(Copy(ss1,1,Len gth(ss1)-1),NumStyle);
ChatRichEdit.ReFormat;
ss1:='';
giff:=TImage.Create(Chat);
giff.Picture.Assign(smileImage[q].Picture);//массив предварительно заполнен картинками
ChatRichEdit.AddPictureEx('',giff.P icture.Graphic,-1,rvvaMiddle);
ChatRichEdit.reformat;
Delete(ss,l,Length(SmileCod[q])-1);

end;
end;
l:=l+1;
end;
ChatRichEdit.SetFocus;
ChatRichEdit.AddText(ss1,NumStyle);
ChatRichEdit.Format;
ChatRichEdit.VScrollPos:=smInput;
TextEdit.SetFocus;
end;
end;

[Razyiller]

procedure TChat.ShowColorMassage(msg: String; index,NumStyle: Byte);
var q,l:integer;
ss,ss1:string;

begin
// работаем с полем чата
ss:=copy(msg,2,length(msg));
ss1:='';
l:=0;
smInput:=sminput+1;
if Copy(ss,14,length(ss))<>'' then
begin
ChatRichEdit.AddTextFromNewLine('', NumStyle);
ChatRichEdit.Reformat;

while l<=Length(ss) do
begin
ss1:=ss1+ss[l];
for q:=1 to colSm do
begin
if (copy(ss,l,Length(SmileCod[q]))=SmileCod[q])and((copy(ss,l,Length(SmileCod[q]))<>''))
then
begin
ChatRichEdit.AddText(Copy(ss1,1,Len gth(ss1)-1),NumStyle);
ChatRichEdit.ReFormat;
ss1:='';
giff:=TGIFImage.Create;
giff.Assign(smileImage[q].Picture.Graphic);
ChatRichEdit.AddPictureEx('',giff,-1,rvvaMiddle);
ChatRichEdit.reformat;
Delete(ss,l,Length(SmileCod[q])-1);

end;
end;
l:=l+1;
end;
ChatRichEdit.SetFocus;
ChatRichEdit.AddText(ss1,NumStyle);
ChatRichEdit.Format;
ChatRichEdit.VScrollPos:=smInput;
TextEdit.SetFocus;
end;
end;

вопрос решен, тему можно закрывать