پروژه شرکت های اتوبوس رانی

سلام،
من دارم یک سیستم تلفنی مربوط به شرکت های اتوبوس رانی مینویسم.میخواستم وقتی کاربر تماس گرفت و اسم یکی از شهر ها رو انتخاب کرد(پیغام:لطفا نام شهر مقصد خود را انتخاب کنید) این اطلاعات در جدول هام ذخیره بشه.یعنی مثلا در جدول بلیط باید به ازای هر کاربری که تماس میگیره اسم شهر مقصد مشخص بشه.
لیست جداول و فیلد ها :
شهر:
کد شهر، نام شهر
مشتری:
کد مشتری، نام،شماره تلفن
سفر:
کد سفر،کد شهر مبدا،کد شهر مقصد،تاریخ حرکت،زمان حرکت،تعداد بلیط،قیمت بلیط
بلیط:
کد بلیط،تعداد بلیط،کد سفر،قیمت کل،کد مشتری


اگر ممکنه کدی که برای تراکنش با پایگاه داده در محیط Delphi باید بنویسم بمن بگید.
تشکر(عجله دارم)

با سلام
اگه ممکنه کامل تر توضیح بدید.
ارتباطتون کلا تلفنیه و با فشار کلید های تلفن و ورود کدها کار میکنید؟
آیا تا به حال با gsm modem کار کردید؟
و ...

سلام.بله پروزه تلفنیه و کاربر ها وقتی از تلفنشون زنگ میزنن با شماره گیری از روی شماره گیر تلفنشون از بین گزینه ها انتخاب میکنن.
کار نکردم.
مثلا ببینید یک کد مشابه دارم ولی نمیدونم مثل این کد رو چطور برای سیستم خودم بنویسم

with TADOQuery.Create(Application) do
begin
try
Connection := DM1.DBTelBase;
SQL.Text :='Select * from tblTypClass Where Number='+Choice;
Open;
if IsEmpty Then
Begin
PlayMessage('17');.
ErrorCounter :=ErrorCounter+1;
End
else
Getdays(FieldByName('Pay').AsCurrency,FieldByName( 'IntID').Asinteger); //az table typclass
finally
Free;
end;
end;
end;

یه سوال دیگه هم داشتم.میخواستم بدونم چطوری توی دلفی یک procedure جدید تعریف کنم؟
چون توی پروژه های آماده ای که دیدم procedure بالای unit هم تعریف شده بود.
آیا اون رو خود دلفی ایجاد میکنه یا من باید بنویسم؟

کدی که قرار دادید : یه کد sql هست برای اتصال به بانک اطلاعاتی.
شما برنامتون رو تا کجا پیش بردید؟
سوالتون دقیقا چیه؟