No decteta contenido de un Tmemo delphi

[force1758]

Hola mi amigos del foro de nuevo ando por aca en busca de su ayuda haber si me dan una manito esperando resolver este problema , el siguiente codigo me da error al comprobar el contenido de un edit con el de un tmemo mi programa cuenta con un identificador de idhardware que que comunica desde una servidor y lo pasa aun tmemo el cual busco ese serial que esta alli y lo comparo con el edit que esta oculto y si es igual al que esta en el tmemo pasa a un mensaje 'correcto' el problema ensi, es que habese cuando hago la comprobacion casi siempre me sale el error como sino estubiera buscando nada en el tmemo de todas forma le paso un pedazo de mi codigo que utilizo y me digan en donde estoy fallando xD

Código Delphi [-]



procedure activarcomprobacion;
begin
form1.memo1.Clear;
form1.IdHTTP1.Request.CacheControl := 'no-cache';
form1.Memo1.Lines.Text:=form1.IdHTTP1.Get('http:url/Array.txt');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
activarcomprobacion;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
loll:string;
begin
if form1.Button1.Caption=('Button1') then begin
ftext:=LowerCase(Memo1.Lines.text);
loll:=LowerCase(Edit1.Text);
nrf:=pos(LowerCase(loll),ftext);

if nrf>0 then begin
Memo1.setfocus;
Memo1.SelStart:=nrf-1;
Memo1.SelLength:=length(Edit1.text);
Memo1.setfocus;

form1.Label1.Caption:=('OK');
end
else
form1.Label1.Caption:=('error');
end;

end;

Espero su respuesta Gracias

[Casimiro Noteví]

¿Por qué haces esto?

Código Delphi [-]
if form1.Button1.Caption=('Button1') then begin

¿Qué es esto?
ftext
loll

[force1758]

Empezado por Casimiro Notevi

¿Por qué haces esto?

Código Delphi [-]
if form1.Button1.Caption=('Button1') then begin

¿Qué es esto?
ftext
loll

gracias Casimiro por responder ,bueno para hacer comprobaciones por si es por el objeto aunque esas varibles 'ftext' ,'loll' son omisas ante el error de comprobacion, si las colocara directa igual me lanza el mismo error como sino estubiera buscando nada o acaso estoy omitiendo algo??? disculpa mi ignoracia.

[Casimiro Noteví]

¿Y cuál es el error?

[force1758]

Empezado por Casimiro Notevi

¿Y cuál es el error?

bueno amigo es que cuando ejecuto el programa a tratar de buscar y comparar el contenido del edit con el tmemo siempre me sale else no me lo comprueba verdadero

[Casimiro Noteví]

Vuelvo a preguntar ¿qué es ftext y loll?
¿Qué textos introduces en el memo y en el edit1?