آموزش دلفی

[mahmood]

سلام
ببین این به درد میخوره

procedure TForm1.Edit1Change(Sender: TObject);
var str : string
begin
  if length(str) > 23 then
  begin
    // code
  end;
end;