Greshka w koda

var s: string
g : integer;
....
s := RichEdit.Lines[0];
g := FindWindow(nil,'Register - Microsoft Internet Explorer');
for i := 0 to length(s)-1 do
SendMessage(d,WM_Char,ord(s),0);
....