procedure TForm1.Button1Click(Sender: TObject); var i : byte; s : string; begin s := edit1.Text; for i := 1 to length(s) do begin if s[i] in [' ','/'] then delete(s,i,1); end; edit1.Text := s; end;