Imagino que para mostrar sólo los datos válidos, tenes que jugar con el retorno de la función ReadLine, es decir:
Código Delphi
[-]
while (readline(memo1.line[i],buf)=0) do
begin
end;
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;