Question

What is the code in adding numbers in Lazarus(TForm.addclick)?

Answer 1

procedure TForm.AddClick(Sender: TObject);
begin
  IF InputQuery('Input-Add','File: ',Value) Then
  Begin
       IF Value<>'' Then ListBox1.Items.Add(Value);
  End;

end;