Ayuda para compara datos

[miguel_fr]

buenas, estoy volviendome loco por algo que parese una estupides.
tengo un stringgrid y a una celda le asigno el siguiente valor

Código Delphi [-]
procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol,ARow: Integer; var Value: String);
Value :=  '!99:99;1';

para una determinada columna.
resulta que yo luego quiero comparar este valor y no lo puedo hacer de forma correcta.
La celda cuando yo ingreso por primera ves a este procedimiento me da el formato "__:__" el que yo deseo para ingresar el tiempo, resulta que si yo no ingreso ningun valor o borro dicho valor me queda de la siguiente manera " : " Al no poder solucionar esto y que me quede una celda de la forma "" (vacia), realizo, en otro proceso, la comparacion del contenido de la celda " : " con la cadena correspondiente ' : ' y es aqui para mi sorpresa que me da que no es igual dicha cadena.
Usando el Debug veo que las cadenas son iguales, pero me sigue dando el error de ser distintas, he probado de la siguiente manera tambien

Código Delphi [-]
if stringgrid1.Cells[4,i] = '!99:99;1' then

pero no he conseguido mi objetivo, tambien he asignado esa cadena a una variable pero no resulto en nada positivo.
desde ya muchisimas gracias

[miguel_fr]

Bueno la verdad no es de imitar mi tipo de programacion pero al fin y al cabo me las ingenie para solucionar

Código Delphi [-]
{en otro proceso pongo esto}
 stringgrid1.Cells[4,fila]:='a';
{de este modo puedo poner un la celda en 'vacio' y 
soluciono el otro problema que aun no se que era}
 
procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol,
  ARow: Integer; var Value: String);
begin
if (StringGrid1.Cells[ACol, 0]='mi columna')then
 begin
  if stringgrid1.Cells[4,fila]<>'a' then
    Value :=  '!99:99;1'
  else
   stringgrid1.Cells[4,fila]:='';
 end;
end;