как повесить на кнопку 2 действия???

[Только_Учусь]

Уважаемые Программисты подскажите Пожалуйста новичку.

есть две формы, в одной с Гридом, где хранятся сотрудники и т.п., на форме2 добавить сотрудника, но что-то я запутася...
есть в 2-й Форме кнопка сохранить и для неё такой код:

begin
if Form1.ADO_Sotrud.Modified then
Form1.ADO_Sotrud.Post;
if ADO_Tel.Modified then
Form2.ADO_Tel.Post;
end;

а мне надо на эту кнопку прописать еще и проверку правильности, для неё такой код:

var
s:string;
a:string;
flag:boolean;
k:integer;
begin
a:='1234567890';
s:=edit1.Text;
flag:=true;
for k:=1 to length(a) do
if pos(a[k],s)>0 then flag:=false;
if flag then ListBox1.Items.Add(s)
else form4.show;
edit1.Text:='';
end;

А КАК СОЕДЕНИТЬ ДВЕ ЭТИ ПРОЦЕДУРЫ, В ОДНУ (КНОПКУ), ЧТОБЫ ОНА И СОХРАНЯЛЯ И ДЕЛАЛА ПРОВЕРКУ?????

ПОДСКАЖИТЕ ПОЖАЛУЙСТА...... Заранее Огромное Спасибо!!!

[Ozerich]

как я понял сначала она доджаь сделать проверку.
Сделай так

var
s:string;
a:string;
flag:boolean;
k:integer;
begin
a:='1234567890';
s:=edit1.Text;
flag:=true;
for k:=1 to length(a) do
if pos(a[k],s)>0 then flag:=false;
if flag then ListBox1.Items.Add(s)
else form4.show;
edit1.Text:='';
if Form1.ADO_Sotrud.Modified then
Form1.ADO_Sotrud.Post;
if ADO_Tel.Modified then
Form2.ADO_Tel.Post;

[_SERGEYX_]

На, на скорую руку, мож.. ошибся где..

function Proverka(a,s: string): boolean;
var k:integer;
begin
for k:=1 to length(a) do
if pos(a[k],s)>0 then result:=false else
result:=true;
end;

Кнопка:

if Proverka('1234567890','edit1.Text') then ListBox1.Items.Add(s)
else form4.show;

[Только_Учусь]

прошу прощения!!!! извините, завел в заблуждения!
var
s:string;
a:string;
flag:boolean;
k:integer;
begin
a:='1234567890';
s:=edit1.Text;
flag:=true;
for k:=1 to length(a) do
if pos(a[k],s)>0 then flag:=false;
if flag then ListBox1.Items.Add(s) //вместо ListBox1 надо чтобы сохраняла в DBgrid в форму1 как правильно прописать?
else form4.show;
edit1.Text:='';
end;

[_SERGEYX_]

1. DBGrid не сохраняет данных. Сохнаняет его DataSet (т.е. DBGrid.dataSousce.dataSet). Проще обратиться напрямую к таблице. Это одно и то же.
2. Не делай никаких Modified. Зачем? Сразу по кнопке ОК проверь данные, например,

if editName.text='' then
begin
MessageDlg('Вы не ввели имя!',mtError,[mbOk],0);
editName.setFocus;
exit;
end;

и так далее...