Error con dato alfanumerico

[look]

Empezado por 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 ....

Creo que tienes que llenar el arreglo con los valores antes, es por eso que te da error '' esto es un null.... almenos a simple vista se ve.
saludos!