ArgSecond := StrToFloat(edit.Text);
if IfArg=1 then OutputValue := ArgFirst+ArgSecond;Edit.Text := FloatToStr(OutputValue);
if IfArg=2 then OutputValue := ArgFirst-ArgSecond;Edit.Text := FloatToStr(OutputValue);
if IfArg=3 then
  begin
    if ArgSecond=0 then
      begin
      Edit.Text := 'ERROR';
      end
      else
      begin
      OutputValue := ArgFirst/ArgSecond;
      Edit.Text := FloatToStr(OutputValue);
      end;
  end;
if IfArg=4 then OutputValue := ArgFirst*ArgSecond;Edit.Text := FloatToStr(OutputValue);

StringLenght:=length(Edit.Text);
StringMsg:=edit.Text;
delete(StringMsg,StringLenght,1);
Edit.Text := StringMsg;

type
  PValuesForWord = ^TValuesForWord;
  TValuesForWord = record
    Title: String;
    TitleFontName: String;
    TitleFontSize: Cardinal;
    TitleFontColor: TColor;
    GridFontName: String;
    GridFontSize: Cardinal;
    GridFontColor: TColor;
    VisibleWord: Boolean;
    SaveFileName: String;
  end;

function GridToWord(Grid: TStringGrid; ValuesForWord: PValuesForWord): Boolean;
var
  R, C, GR, GC: Integer;
  Word, Doc, Table: OLEVariant;
begin
  Result:= True;
  try
    Word:= CreateOleObject('Word.Application');
  except
    Result:= False;
    Exit;
  end;
  with ValuesForWord^ do
  begin
    Word.Visible:= VisibleWord;
    Doc:= Word.Documents.Add;
    if Title <> '' then
    begin
      Word.Selection.ParagraphFormat.Alignment:= 1;
      Word.Selection.Font.Bold:= True;
      Word.Selection.Font.Name:= TitleFontName;
      Word.Selection.Font.Size:= TitleFontSize;
      Word.Selection.Font.Color:= TitleFontColor;
      Word.Selection.TypeText(Text:= Title);
      Word.Selection.TypeParagraph;
    end;
    Word.Selection.Font.Bold:= False;
    Word.Selection.Font.Name:= GridFontName;
    Word.Selection.Font.Size:= GridFontSize;
    Word.Selection.Font.Color:= GridFontColor;
    Word.Selection.TypeParagraph;
    with Grid do
    begin
      C:= ColCount;
      R:= RowCount;
      Table:= Doc.Tables.Add(Word.Selection.Range, R, C);
      for GC:= 1 to C do
        for GR:= 1 to R do
          Table.Cell(GR, GC).Range.Text:= Cells[GC - 1, GR - 1];
    end;
    if SaveFileName <> '' then
    begin
      Doc.SaveAs(WideString(SaveFileName), 0);
      Doc.Close; Word.Quit;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  vfw: PValuesForWord;
begin
  New(vfw);
  try
    with vfw^ do
    begin
      Title:= 'Чисто типа безумняково-пацанское демо... ;)';
      VisibleWord:= False;
      TitleFontName:= 'Times New Roman';
      TitleFontSize:= 16;
      TitleFontColor:= $0EAF6B;
      GridFontName:= 'Arial';
      GridFontSize:= 10;
      GridFontColor:= $FF4A89;
      SaveFileName:= 'C:\1-Koval.doc';
    end;
    if GridToWord(Form1.StringGrid1, vfw) then
    begin
      if vfw^.SaveFileName <> '' then
        ShowMessage('Создан файл: ' + vfw^.SaveFileName);
    end;
  finally
    Dispose(vfw);
  end;
end;

  if Length(Edit1.Text) >= 1 then // Можно и без проверки, Copy и сама все разрулит.
    Edit1.Text:= Copy(Edit1.Text, 1, Length(Edit1.Text) - 1);

...
if (dbtext33.Caption='1')and(dbtext32.Caption=inttostr(par))and(dbtext31.Caption=inttostr(day))
then begin
Label[b]1[/b].Caption:=dbtext34.Caption;
...

unit dm2;

interface

uses
  Windows, SysUtils, Classes, DB, DBTables;

type
  TDataModule2 = class(TDataModule)
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table1: TTable;  // Главная
    Table2: TTable;  // Подчиненная
    procedure Table1BeforeEdit(DataSet: TDataSet);
    procedure Table1AfterPost(DataSet: TDataSet);
    procedure Table1BeforeDelete(DataSet: TDataSet);
    procedure Table1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
    procedure Table2PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
  private
    { Private declarations }
  public
    { Public declarations }
    VOF: String;
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

procedure TDataModule2.Table1BeforeEdit(DataSet: TDataSet);
begin
  VOF:= Table1.FieldByName('Firm_ID').AsString;
end;

// Изменение связанных записей в подчиненной таблице "руками". :)
procedure TDataModule2.Table1AfterPost(DataSet: TDataSet);
begin
  Table2.DisableControls;
  Table2.MasterSource:= nil;
  while Table2.Locate('Owner_ID', Variant(VOF), [LoCaseInsensitive]) <> False do
  begin
    Table2.Edit;
    Table2.FieldByName('Owner_ID').AsString:= Table1.FieldByName('Firm_ID').AsString;
    Table2.Post;
  end;
  Table2.MasterSource:= DataSource1;
  Table2.EnableControls;
end;

// Удаление связанных записей из подчиненной таблицы "руками". :)
procedure TDataModule2.Table1BeforeDelete(DataSet: TDataSet);
begin
  Table2.DisableControls;
  Table2.First;
  while not Table2.Eof do
    Table2.Delete;
  Table2.EnableControls;
end;

// Обработка ошибки при записи значения в главной таблице.
procedure TDataModule2.Table1PostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  Table1.Cancel;
  //  MessageBox(0, 'Unable to post: Duplicate Value', 'Info', MB_OK + MB_ICONWARNING);
  Abort;
end;

// Обработка ошибки при записи значения в подчиненной таблице.
procedure TDataModule2.Table2PostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  Table2.Cancel;
  //  MessageBox(0, 'Unable to post: Duplicate Value', 'Info', MB_OK + MB_ICONWARNING);
  Abort;
end;

end.

procedure SetLblCaptions(Owner: TForm; List: TStrings);
var
  i, j: Integer;
begin
  j:= 0;
  for i:= 0 to Owner.ComponentCount - 1 do
  begin
    if (Owner.Components[i] is TLabel) then
    begin
      if j < List.Count then
      begin
        (Owner.Components[i] as TLabel).Caption:= List.Strings[j];
        inc(j);
      end
      else
        Break;
    end
  end
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL:= TStringList.Create;
  if FileExists('C:\List.txt') then
    SL.LoadFromFile('C:\List.txt')
  else begin
    SL.Add('Привет! :)');
    SL.Add('Как жив-здоров?');
    SL.Add('Пока.');
  end;
  SetLblCaptions(Form1, SL);
  SL.Free;
end;

LPar1:='Attack: ';