با سلام .
این دستورات زیر یعنی چی ؟
if checkans(n1,n2,ans) then
begin
s:=format(' %d - %d = %d',[n1,n2,ans]);
index:= memo1.lines.indexof(s);