Edit .cfg файл с помощью Win32 API

[klim]

Люди подскажите пожалуйста функцию с помощью которой я бы смог отредактировать .cfg файл?, если можно поподробнее я новечёк.
Мой пример:

 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  Dialogs, StdCtrls, ExtCtrls, XPMan, ShellAPI, Forms;
type
  TForm1 = class(TForm)
    Image2: TImage;
    Label1: TLabel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    Label2: TLabel;
    Image1: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label1Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image3Click(Sender: TObject);
    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image6MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Label3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  AllD: Boolean;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  perform(WM_SysCommand, SC_DragMove, 0);
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0, '', 'http://game.vdonsk.ru/reg/', '', '', 0);
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image3.Visible := True;
AllD := False;
end;
procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image4.Visible := True;
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
Image4.Visible := False;
Close;
end;
procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if AllD=True then exit;
Image3.Visible := False;
Image4.Visible := False;
Image6.Visible := False;
Image7.Visible := False;
AllD := True;
end;
procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image6.Visible := True;
AllD := False;
end;
procedure TForm1.Image6MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image7.Visible := True;
end;
procedure TForm1.Image6Click(Sender: TObject);
begin
Image7.Visible := False;
if(LabeledEdit1.Text<>'')and(LabeledEdit2.Text<>'')then begin
 
ShellExecute(0, '', 'cmd.exe', PChar('/c echo name "'+LabeledEdit1.Text+'">>cstrike\config.cfg'), '', 0);
ShellExecute(0, '', 'cmd.exe', PChar('/c echo setinfo _me "'+LabeledEdit2.Text+'">>cstrike\config.cfg'), '', 0);
ShellExecute(0, '', 'hl.exe', PChar('-game cstrike -console +connect 193.111.2.244:27015'), '', 0);
 
Close;
end else
  MessageBox(0, WideString('Заполните все поля!'), WideString('Просьба'), 0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
LabeledEdit1.EditLabel.Caption := WideString('Логин:');
LabeledEdit2.EditLabel.Caption := WideString('Пароль:');
Image3.Hint := WideString('Закрыть');
Image4.Hint := WideString('Закрыть');
Image6.Hint := WideString('Начать игру');
Image7.Hint := WideString('Начать игру');
Label1.Hint := WideString('Регистрация на сервере');
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
  Image6.OnClick(Form1);
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
Form2.Show;
end;
end.

Выделенный код это то что мне надо сделать при момощи Win32 API, а не через cmd
Заранее спасибо.

[klim]

Всё разобрался сам...