Very Computer

I am very beginner.....

Delete function has an error(?)..  please help..
the task is that;

edit1.text  ----->  3X^3+4X^2-4X-6
I want to get the numbers at front of 'X^3' , 'X^2', 'X '....

var
    q,eq,s,k,j:string;
    i,t,L,h,A,B:integer;
begin
    eq:=edit1.text;
    i:=Pos('X^3',eq);
    if i>1 then
    s:=trim(copy(eq,1,i-1));
    q:=Delete(eq,1,i-1);  <------ It has been appeared an error msg.
                                 [Error] Unit1.pas(39): Incompatible
types:'String'
                                  and 'procedure, untyped pointer or untyped
parameter'
                                [Error] Unit1.pas(45): ')' expected but ';'
found
    if i=1 then s:='1';
    if i=0 then s:='0';
    t:=StrToInt(S);

    .........

    L:=strtoint(trim(eq);

    h:=t*A*B*L;
    j:=Floattostr(h);
    label1.caption:=j;

end;