Error con dato alfanumerico

[cristofer_ec]

Saludos estimados amigos, tengo el siguiente ejemplo:

Código Delphi [-]
procedure TTpresen.FormCreate(Sender: TObject);
Var:
vt:Array[1..5] of String[20];
begin
    vt[1]:='1';
    if (StrToInt(vt[1])=1) then
      sh1.Brush.Color:=clLime
    else
    begin
        if (StrToInt(vt[1])=2) then
          sh1.Brush.Color:=clRed
        else
          if (StrToInt(vt[1])=3) then
            sh1.Brush.Color:=clBlack;
    end;
end.

Como ven declaro un vector como tipo caracter, le asigno un valor de tipo caracter, luego convierto a integer y comparo, ahora al ejecutar me envia el siguiente error: '' is not a valid integer value... pues me tiene jalandome de los pelos este error ....