No decteta contenido de un Tmemo delphi

[ecfisa]

Hola force1758.

Me cuestiono lo mismo que Casimiro: ¿ Cuales son los valores que estas evaluando ?

El código de tu mensaje no genera ningún error. Y por otro lado, aparentemente funciona como se espera de acuerdo a los valores de Edit1 y Memo1.

Para ejemplo tomemos este caso:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:= 'F64-01020800-0000E59D-BFEBFBFF';
  Memo1.Text:= 'blabla00000F64-01020800-0000E59D-BFEBFBFFblabla';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  loll, ftext:string;
  nrf: Integer;
begin
  if Button1.Caption=('Button1') then  // ¿ Con que fin ?
  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;
      Label1.Caption:=('OK');
    end
    else
      Label1.Caption:=('error');
  end;
end;

En Label1 podras ver 'Ok' y en el Memo seleccionada la cadena 'F64-01020800-0000E59D-BFEBFBFF'...

Saludos