Letztes Zeichen löschen wenn nicht 0 oder 1

[DelphiNoob1.0]

Code:

procedure TForm1.BinaerChange(Sender: TObject); // Change also direkt bei eingabe
var i :integer;
    bin :string;
begin
bin:=Binaer.Text;
i:=length(bin);
If i=1 then
if not AnsiLastChar(bin)^ = '1' or '0'  then delete (bin, i, 1 );
end;

Irgendwie löscht er trotzdem nicht, könnt ihr mir helfen und was könnte ich sonst noch verbessern ?

LG DelphiNoob