<div>
I don't think your question is very clear. 
What will trigger this procedure? Will the user click a button? 
Also if you need to have lots of &quot;IF... THEN... ' statements you can use &quot;CASE ... OF &quot;&nbsp;statements instead like this: 
case Itemindex of 
 
&nbsp;0 : showmessage('Zero'); 
1 : showmessage('One'); 
2: begin 
&nbsp; &nbsp; &nbsp; &nbsp; showmessage('This is 2 but with a beginning and end statement'); 
&nbsp; &nbsp; &nbsp;end; 
3: showmessage('Three'); 
end; 
BUT you say that the procedure is the SAME for all itemindexes, so you don't need this. 

</div>

<div>
aczuall I have 2 queeries running on itemindex. 
1st one is allways the same.
</div>

<div>
You are still not explaining nicely what you need. 
Are you asking how to create a separate procedure somewhere and then call it easily? 
 
How about this: 
&nbsp; 

<pre><code class="code-10 nolinks" id="code-264204">Put this part soon after the IMPLEMENTATION section
 
procedure RunQueryRun(MyItemIndex : Integer);
begin
 MyQuery1.SQL.Clear;
 MyQuery1.SQL.Add('SELECT * FROM mytable);
 MyQuery1.Open;
end;
 
PUT THIS PART IN YOUR BUTTON's ONCLICK:
procedure TForm1.Button1(Sender: TObject);
begin
 RunQueryRun(MyListBox.ItemIndex);
end;
 
Notes: The Button's ONCLICK event must be AFTER/LATER than the RunQueryRun procedure
</code></pre>
</div>

<div>
This part I do not know: 
procedure RunQueryRun(MyItemIndex : Integer); 
if I use adoqueery how do I write it ? 
something like procedure(adoqueery:Tqueery)?? 
 
so I would do on buttonclick 
case radiogroup itemindex of 
0:runqueeryrun;
</div>

<div>
this part is correct from what I understand from your problem: 
&quot;so I would do on buttonclick 
case radiogroup.itemindex of 
0:runqueeryrun;&quot; 
except you forgot END for your case statement, so it would be 
so I would do on buttonclick 
case radiogroup.itemindex of 
0:runqueeryrun; 
1:runqueeryrun; 
2:runqueeryrun; 
3:runqueeryrun2; //For example if you want something different for 3 
4:runqueeryrun; 
end; //of &quot;case of&quot; 
this part is wrong: 
something like procedure(adoqueery:Tqueery)?? 
 
Here's the syntax for a procedure: 
first we start with keyword &quot;procedure&quot; 
example: procedure 
then we add the procedure name, 
example: procedure runqueeryrun 
then we add any parameters that we need to pass, We put these in brackets, we put the NAME of the parameter (this can be anything) and we put the type of parameter, example: procedure runqueeryrun (donkey : integer; mouse: string; country: tform); 
then finally we end with a semicolon 
 
If you don't want to pass any parameters, you do not need to. For example: 
procedure runqueeryrun; 
 
then you start as normal -- you put your variables (if any), a begin statement, and then an end statement. 

</div>

<div>
so if I have parameters in my queery that get data from textedit or currencyedit or datetimepicker? 
example like : insert into table1 (a1) values (:b2) 
queery.param:=editbox1.text 
do you do : procedure runqueery(text:string) ?
</div>

<div>
dont bother about typos all I am interested is in header
</div>

<div>
I am still not sure exactly what you are asking... 
In your example where you said &quot;procedure runqueery(text:string)&quot;, that would be if you want to pass a string to your runqueery procedure, maybe something like this: 
(First we declare the procedure): 
procedure runqueery(text:string); 
begin 
&nbsp; ADOquery1.SQL.clear; 
&nbsp; ADOQuery1.SQL.Add(text); 
&nbsp; ADOQUery1.Open; 
end; 
(Then we can call the procedure on your button's OnClick event) 
procedure TForm1.Button1click(Sender:TObject): 
begin 
&nbsp; runqueery('SELECT * FROM Customers'); 
end; 
 
To insert a parameter into a query you say: 
&nbsp; &nbsp; ADOQuery1.ParamByName(b2).AsString := Editbox1.text; 
Does this help you? 
 

</div>

<div>
Okay here's an example that uses your parameters better: 
 

<pre><code class="code-10 nolinks" id="code-264289">Put this part soon after the IMPLEMENTATION section
 
procedure RunQueryRun(MyValue: String);
begin
 MyQuery1.SQL.Clear;
 MyQuery1.SQL.Add('INSERT INTO table1 (a1) values (:b2));
 MyQuery1.SQL.ParamByName('b2').AsString := MyValue;
 MyQuery1.ExecSQL; //we don't say &quot;Open&quot; because your query does not return a result
end;
 
PUT THIS PART IN YOUR BUTTON's ONCLICK:
procedure TForm1.Button1(Sender: TObject);
begin
 Case MyListBox.ItemIndex of
 0 : RunQueeryRun('0');
 1 : RunqueeryRun('1'); 
 2 : RunQueeryRun('2');
 //Or we can simply say RunQueeryRun(IntToStr(MyListBox.ItemIndex));
 end;
end;
</code></pre>
</div>

<div>
to cut short how would you write this as a procedure: 
 
procedure TForm1.Button1Click(Sender: TObject); 
const &nbsp; SQL1 = 'insert into table2 (a1,a2,a3,a4,a5) values (:b1,:b2,:b3,:b4,:b5) 
begin with DataModule1.ADOQuery1 do begin 
DataModule2.ADOQuery1.Close; 
DataModule2.ADOQuery1.SQL.Clear; 
DataModule2.ADOQuery1.SQL.Text := SQL1 ; 
DataModule2.ADOQuery6.Parameters.ParamByName('b1').Value := cxTextEdit1.text; 
DataModule2.ADOQuery6.Parameters.ParamByName('b2').Value := cxLookupComboBox1.text 
DataModule2.ADOQuery6.Parameters.ParamByName('b3').Value := cxDateEdit1.Text; 
DataModule2.ADOQuery6.Parameters.ParamByName('b4').Value := cxCurrencyEdit1.Value; 
DataModule2.ADOQuery6.Parameters.ParamByName('b5').Value := cxMemo1.text; 
DataModule2.ADOQuery1.ExecSQL; 
end; 
 
 

</div>

<div>
sorry for queery number typos ..just quick cut&amp;paste
</div>

<div>
now I would like to write that as a procedure (runqueery) so I can &nbsp;do 
case radiogroup itemindex of 
0:begin runqueery; 
end &nbsp;etc 

</div>

<div>
What bokist has provided is good. 
By the way, bokist asks you to put &quot;procedure write_data;&quot; BEFORE implementation and then the complete procedure AFTER implementation. I can explain why this is different to what I told you: 
if you declare a procedure under TForm, then TForm owns that procedure. You can then go to another Form (for example Form4) and use that procedure, like Form1.write_data. 
If you did what I told you, you would only be able to use &quot;write_data&quot; inside Form1 
Good luck :) 

</div>

<div>
 Just to check,I did : 
.... 
&nbsp; procedure cleandata; 
&nbsp; private 
&nbsp; &nbsp; { Private declarations } 
&nbsp; public 
&nbsp; &nbsp; { Public declarations } 
&nbsp; end; 
var 
&nbsp; Form1: TForm1; 
implementation 
{$R *.dfm} 
procedure cleandata; 
cxTextEdit1.Text :=''; 
end; 
 
 
 
 
and I get errors ... ???? 

</div>

<div>
procedure clean data belongs to Form1, therefore : 
 
procedure TForm1.cleandata;
</div>

<div>
oops, rwolwf we send our comments at same time, &nbsp;sorry !!!
</div>

<div>
to clear edits ...works. 
But not for the queery! 
Did as you said : 
Put before private:procedure runqeery; 
then after implementation: 
 
procedure TForm1.Runqueery; 
const ... 
begin 
my queery text... 
end; 
 
Then on buttonclick: 
case ... of ... 
10: begin &nbsp;runqueery; 
end; 
 
But it does not work?! 
 

</div>

<div>
why does not the queery work ???
</div>

<div>
srbenavrbe: don't be lazy, show us your code so we can look for problems.
</div>

<div>
on one form &nbsp;works on another not...will try...
</div>

<div>
<div class="content wysiwyg-content">
I have a queery that I I run on case itemindex of. 
Since the queery is the same for all itemindexes how can i make it short (a procedure?)? 
like : 
0 : begin Procedure RUNQueeryRUN 
just local access db...
</div>
</div>

I have a queery that I I run on case itemindex of.
Since the queery is the same for all itemindexes how can i make it short (a procedure?)?
like :
0 : begin Procedure RUNQueeryRUN
just local access db...

queery procedure

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.