FMX.Dialogs.InputBox(
						'Miktar Giriniz ','','0',
						procedure(const AResult: TModalResult; const AValue: string)   
						begin
							case AResult of
								mrOk:
									begin
										ShowMessage('Veri Girildi');
									End;
								end;
							end;
						end
					);