Problema If

[Memo6015]

Hola Amigos de Clubdelphi tengo un problema bastante raro hace poco formatee mi computador y de mi base de datos hice los scripts de las tablas y la base de datos y me copie el programa que estab haciendo, reinstale el sistema operativo instale el delphi ( version 6 ) instale sql server 7 el mismo que use antes, cree una base de datos nueva y ejecute el script de mis tablas y mis procedimientos, ok todo perfecto

abri el programa que estaba haciendo copn delphi para hacerle modificaciones lo hago correr pero...el delphi no ejecuta lo que sigue despues de los begin y end que hay en un if

por ejemplo tengo

Código Delphi [-]
TipoCant:=Q_Productos.FieldByName('Tipo_Cantidad').AsString;
if (TipoCant = 'Unidades') then
begin
ED_Cantidad.Enabled:=True;
ED_Cantidad.SetFocus;
RB_Unidades.Checked:=True;
end
else if (TipoCant = 'Kilos') then
begin
RB_Kilos.Visible:=True;
RB_Unidades.Visible:=False;
end;

cuando tiene que verificar esa condicion el programa entra en el if lo corrobore con el debug del programa viendo paso por paso si las variables se llenaban con los valores y todo esta todo correcto pero cuando verifica if (TipoCant = 'Unidades') then lo que sigue del begin y end no lo ejecuta se pasa de largo y se sale del procedimiento, me pasa igual con todos los if de este tipo no ejecutan lo que le ssigue del begin y end y no se que hacer ya

haber si ud me pueden ayudar amigos, yo no entiendo que hice mal, verifique los datos y todo inclusive probe cambiando algunos valores lo deje asi

Código Delphi [-]
if (TipoCant = 'Unidades') then
Messagedlg('el if esta fallando',mtError,[mbok],0);

probe TipoCant le di valor 'Unidades' verifica pero no ejecuta el mensaje, no entiendo que pasa

una ayuda amigos

gracias por todo

Pd: " se me olvidaba las tablas las llene con datos, la base de datos esta igual que antes no creo que ese sea el problema por si ud piensan que a lo mejor las tablas estan vacias. Le asigne el nombre de la base de datos a los objetos y todo tambien"

[ContraVeneno]

A ver, prueba con esto:

Código Delphi [-]
TipoCant := 'unidades ';
if (AnsiUpperCase(Trim(TipoCant)) = 'UNIDADES') then
Messagedlg('el if esta fallando',mtError,[mbok],0);

[Memo6015]

que bien me funciono

Código Delphi [-]
TipoCant := 'unidades ';if (AnsiUpperCase(Trim(TipoCant)) = 'UNIDADES') 
thenMessagedlg('el if esta fallando',mtError,[mbok],0);

probare con los otros

gracias por al respuesta