[Crisis]

Не могу сообразить где изменить вот мой код программы подскажи как переделать

Код:

procedure TDataModule2.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
if form1.Edit1.Text<>'Edit1' then
form1.Edit1.Text:=DataSource1.DataSet.Fields[1].AsString+';'+form1.edit2.text+';'+
// fio + gorod
DataSource1.DataSet.FieldList.Fields[0].AsString',,'+ //adres
DataSource1.DataSet.Fields[0].AsString+';'; // nomer

query1.SQL.Clear;
query1.SQL.Add('select dolg from opl where nom='+DataSource1.DataSet.Fields[0].AsString);
query1.Active:=true;
form1.Edit1.Text:=form1.Edit1.Text+datasource3.DataSet.Fields[0].AsString+
//saldo (dolg)

';'+form1.edit3.text;
//podusluga

query1.SQL.Clear;
query1.SQL.Add('select datvip from opl where nom='+DataSource1.DataSet.Fields[0].AsString);
query1.Active:=true;
form1.Edit1.Text:=form1.Edit1.Text+';'+datasource3.DataSet.Fields[0].AsString;
// data
query1.SQL.Clear;
query1.SQL.Add('select datvip from opl where nom='+DataSource1.DataSet.Fields[0].AsString);
query1.Active:=true;
form1.Edit1.Text:=form1.Edit1.Text+';'+datasource3.DataSet.Fields[0].AsString;
// ещё дата :)
form1.edit1.text:=form1.edit1.text+';'+form1.edit4.text;
// НД
query1.SQL.Clear;
query1.SQL.Add('select s_opl from opl where nom='+DataSource1.DataSet.Fields[0].AsString);
query1.Active:=true;
form1.Edit1.Text:=form1.Edit1.Text+':'+datasource3.DataSet.Fields[0].AsString+':';
// начисление
end;

end.

Aristarh Dark: тэги, Тэги и еще раз ТЭГИ
ЗЫЖ Буду удалять сообщения несчадно!!!