Wenn Du es so meinst, wie ich es in meinem obigen Post verstanden habe, dann müsste Button1Click wie folgt aussehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i := 0 to mmEin.Lines.Count - 1 do
if not isPrim(StrToInt(mmEin.Lines[i])) then
mmAus.Lines.Add(mmEin.Lines[i])
end;
Dein Type TFeld und die Prozeduren RemoveAt und RemovePrim wären
dann ünnötiger Ballast...
Gruß
Wormid